Set c = objSheet.UsedRange.Find (SearchKeyWord) ‘ data to find For each c in objSheet.UsedRange ‘ Loop through the used range If c = SearchKeyWord1 then
‘Creating a new Excel file from an existing Excel Sheet Function CopySheet (SourceFile, SheetName, DestinationFile) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False objExcel.DisplayAlerts = True Set objWorkbook1= objExcel.Workbooks.Open(SourceFile) Set objWorkbook2= objExcel.Workbooks.Add() objWorkbook1.Worksheets(SheetName).UsedRange.Copy objWorkbook2.Worksheets("Sheet1″).Range("A1″).PasteSpecial Paste =xlValues objWorkbook2.Worksheets("Sheet1″).Name = "Global" objWorkbook2.saveAs(DestinationFile) objWorkbook1.close objWorkbook2.close set objExcel=nothing End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)