FileSearch ungenau
20.02.2007 13:40:09
Jessie
ich drucke jeden Monat über FileSearch mehrere Dateien auf einmal aus.
Const verz = "C:\"
strZusatz = InputBox("Namen der Datei"´)
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = strZusatz & ".xls"
.Execute
End With
For y = 1 To Application.FileSearch.FoundFiles.Count
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(y))
Sheets(1).Activate
ActiveSheet.PrintOut From:=1, To:=2
quelle.Close savechanges:=False
Next y
Soweit läuft dieses bisher perfekt. Jetzt habe ich auf diese Weise alle Dateien die 'Januar 07.xls' heißen ausgedruckt & habe zusätzlich ungewollt auch alle Dateien die 'Januar 07 (Korrektur 2006).xls' heißen gedruckt.
In die InputBox habe ich nur 'Januar 07' eingegeben, warum bekomme ich dann auch die 'Januar 07 (Korrektur 2006)'? Kann ich das in Zukunft verhindern?
Danke & Gruß
Jessie