Set fs = application.filesearch
Hello,
My problem is simple and seems to be common. I had and Excel Macro that I used to find files with excel type format, located in the same path, but with variance on the name; then exporting the data attending to the similars. To do that, I used the command set fs = application.filesearch. It was working perfectly until we upgraded from Microsof Office 2003 to 2007. Why it stopped working and what you suggest me to do? This is the logical of what I was doing:
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Documents and Settings\admin\Desktop\Pablo1"
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Dim libro As String
libro = .FoundFiles(i)
Workbooks.Open (libro)
|