Направих няколко търсения и имам проблеми да намеря правилния код, когато използвам вече несъществуващия .filesearch - разгледах възможността за използване както на Dir, така и на FileSystemObject, но без нищо друго освен объркване при използване на цикъл след търсенето ... Надявам се, че можете да ми помогнете да стигна до по-лесно заключение!
Накратко, текущият ми код търси папка за всички файлове на Excel и отваря първия, прави каквото трябва да направи с него, затваря го и отваря следващия търсен файл. Благодаря предварително!
FilePath = "S:\My\File\Path"
FileSpec = ".xls"
Set FS = Application.FileSearch
With FS
.LookIn = FilePath
.Filename = FileSpec
.Execute
End With
For b = 1 To FS.FoundFiles.Count
StrFile = FS.FoundFiles(b)
Set mobjXL = New Excel.Application
With mobjXL
.Visible = False
'REST OF CODE HERE
next b
Dir()
. Покажете кода, който имате, така ще бъде по-лесно да ви помогне. - person Kazimierz Jawor   schedule 16.07.2013