Click here to Skip to main content
Rate this: bad
Please Sign up or sign in to vote.
See more: VBScript
I am new to using script.I found the script in a forum ‘Creating a new Excel file from an existing Excel Sheet.I want to Loop through the range and copy rows in new sheet, I tried to find the keywords then copy the rows in new sheet.if it is possible to do that way can someone help me please
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()
objWorkbook2.Worksheets(“Sheet1″).Range(“A1″).PasteSpecial Paste =xlValues
objWorkbook2.Worksheets(“Sheet1″).Name    =    ”Global”
set objExcel=nothing
End Function
Posted 19-Jun-11 17:41pm

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 CHill60 210
1 Sergey Alexandrovich Kryukov 200
2 Peter Leow 170
3 Richard Deeming 166
4 Zoltán Zörgő 135
0 Sergey Alexandrovich Kryukov 9,248
1 OriginalGriff 6,806
2 Peter Leow 4,432
3 Zoltán Zörgő 3,919
4 Richard MacCutchan 2,782

Advertise | Privacy | Mobile
Web02 | 2.8.150129.1 | Last Updated 19 Jun 2011
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100