Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Run-time error '445'
Hi,
I am looking to get the list of excel files in a folder through VBA. By browsing the net i found this Sub Search_files() Dim FileS As FileSearch Dim F As Variant Dim x As Integer Set FileS = Application.FileSearch With FileS .NewSearch .Filename = InputBox("Insert file name") .LookIn = InputBox("Insert the path") .SearchSubFolders = True .Execute End With x = 1 For Each F In Application.FileSearch.FoundFiles Cells(x, 1) = F x = x + 1 Next F End Sub When the cursor goes to "Set FileS = Application.FileSearch" it says the OBJECT DOESN'T SUPPORT THIS ACTION" Kindly provide solution Thanks' Hari |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Getting Run-time error '445'
FileSearch was removed from xl2007. Use the Dir function. -- Jim Cone Portland, Oregon USA List Files add-in: http://tinyurl.com/ListFiles "Hari" wrote in message Hi, I am looking to get the list of excel files in a folder through VBA. By browsing the net i found this Sub Search_files() Dim FileS As FileSearch Dim F As Variant Dim x As Integer Set FileS = Application.FileSearch With FileS .NewSearch .Filename = InputBox("Insert file name") .LookIn = InputBox("Insert the path") .SearchSubFolders = True .Execute End With x = 1 For Each F In Application.FileSearch.FoundFiles Cells(x, 1) = F x = x + 1 Next F End Sub When the cursor goes to "Set FileS = Application.FileSearch" it says the OBJECT DOESN'T SUPPORT THIS ACTION" Kindly provide solution Thanks' Hari |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
Error handling error # 1004 Run-time error | Excel Programming | |||
Conditional Formatting - Run Time Error '13' Type Mismatch Error | Excel Programming | |||
run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming |