Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Scrpit to input search results in Excel work book
I have the following vb script that uses the Excel object to search for files
containing a certain part number. I would like the search results to appear in a new Excel workbook but if there is more than one file address returned I only get one in the workbook. -------------------------------------------------------------------------------- Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add dim partnum partnum = Inputbox("Enter Part Number") MsgBox(partnum) Set objSearch = objExcel.FileSearch objSearch.Lookin = "D:\" objSearch.SearchSubfolders = TRUE objSearch.FileName = "*.xls" objSearch.TextOrProperty = partnum objSearch.Execute For Each strFile in objSearch.FoundFiles objExcel.Cells(1, 1).Value = (strfile) Next MsgBox "Search Complete" -------------------------------------------------------------------------------- Maybe I should be using a loop?? But I'm not sure how to go about it. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
work book on Excel 07 | New Users to Excel | |||
Excel work book | Excel Worksheet Functions | |||
excel work book | Excel Discussion (Misc queries) | |||
HOW TO MAKE A LIST OF WORK SHEET IN WORK BOOK IN EXCEL 2007 | Excel Programming | |||
Save compared results to new work book | Excel Programming |