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 OriginalGriff 475
1 Maciej Los 349
2 Richard MacCutchan 220
3 BillWoodruff 219
4 Mathew Soji 160
0 OriginalGriff 8,759
1 Sergey Alexandrovich Kryukov 7,407
2 DamithSL 5,639
3 Maciej Los 5,269
4 Manas Bhardwaj 4,986


Advertise | Privacy | Mobile
Web01 | 2.8.1411028.1 | Last Updated 19 Jun 2011
Copyright © CodeProject, 1999-2014
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