Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VBScript
Hi
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()
 
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
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 Maciej Los 495
1 OriginalGriff 400
2 Sergey Alexandrovich Kryukov 394
3 CHill60 320
4 Sascha Lefévre 269
0 Sergey Alexandrovich Kryukov 10,017
1 OriginalGriff 9,495
2 Peter Leow 5,241
3 Kornfeld Eliyahu Peter 3,373
4 Maciej Los 3,076


Advertise | Privacy | Mobile
Web01 | 2.8.150327.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