Click here to Skip to main content
11,642,855 members (76,456 online)
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 16:41pm

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

  Print Answers RSS
0 DamithSL 258
1 Sergey Alexandrovich Kryukov 230
2 jyo.net 180
3 OriginalGriff 170
4 Afzaal Ahmad Zeeshan 155
0 Mika Wendelius 485
1 DamithSL 457
2 OriginalGriff 365
3 Afzaal Ahmad Zeeshan 258
4 Sergey Alexandrovich Kryukov 254


Advertise | Privacy | Mobile
Web03 | 2.8.150731.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