Alternative zu Filesearch
24.09.2008 19:23:00
Stefan
habe ein kleines Problem das mich langsam zum Verzweifeln bringt.
Und zwar habe ich etwa 320 Excel-Dateien (mit ansteigender Tendenz) und diese möchte ich mit einem Makro nach einem Keyword durchsuchen lassen. Anschließend sollen die zutreffenden Dateien geöffnet und weiter bearbeitet werden. Unter Excel bis Version 2003 war das ja problemlos mit .Filesearch möglich, aber unter Office 2007 funktioniert dies ja leider nicht mehr.
Versuche es bisher mit der FSO-Suche:
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
...
next f1
Es wäre ja auch möglich (so wie ich das bisher gemacht habe) die Dateien (alle) zu öffnen und dann zu durchsuchen, aber das dauert bei so vielen Dateien leider enorm lange.
Hat jemand eine Idee?
Danke im Voraus,
Gruß
Stefan