Überprüfung vor Öffnen
19.11.2007 11:53:00
Philipp
ich habe bisher folgendes Vorgehen programmiert:
Ich durchsuche einen Ordner auf xls-Dateien und öffne anschließend diese nacheinander.
With Application.FileSearch
.LookIn = strPathFolder
.Filename = "*.xls"
.SearchSubFolders = False
.Execute msoSortByFileName
For lngCounterXlsSheets = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(lngCounterXlsSheets)
Da in dem Ordner drei Arbeitsmappen liegen, die nicht geöffnet werden sollen frage ich anschließend ab, ob die gerade geöffnete Arbeitsmappe eine derer ist, die nicht von Belangen sind.
If wbkTemp = wbkTool Or wbkTemp = wbkOverview Or wbkTemp.Name = "Gesamtübersicht" Then Next lngCounterXlsSheets
Gibt es eine Möglichkeit vor dem Öffnen bereits abzufragen, ob die gefunde Datei einer dieser Arbeitmappen sind? (Das würde mir viel Rechenzeit ersparen!)
Grüße und Dank im Voraus für jede Hilfe,
Philipp