Hallo Excel-Fachleute,
mit der API-Funktion "SearchTreeForFile" lese ich aus geschlossenen Dateien Zellwerte aus.
lngTMP = SearchTreeForFile("C:\Dokumente und Einstellungen\Werner\Desktop\", _
"\strVerzeichnis\Zahlungen Et_Masterdatei" & strEX1, strPathName)
lngTMP = SearchTreeForFile("C:\Dokumente und Einstellungen\Werner\Desktop\", _
"\strVerzeichnis\Verprobung W-Plan " & Range("P11").Value & strEX2, strPathName)
Die Dateiendungen dieser geschlossenen Dateien sind .xlsm und .xlsx.
Folgenden Strings werden für die Suche verwendet:
Const strEX1 As String = ".xlsm"
Const strEX2 As String = ".xlsx"
Ich versuche schon seit geraumer Zeit, diese Dateiendungen für die Suche in einen einzelnen String einzusetzen.
Z.B.
Const strEX As String = "xlsx-Dateien (*.xlsx)" & "*.xlsx" & "xlsm-Dateien (*.xlsm)" & "*.xlsm"
aber ohne einen Erfolg.
Wer kann mir helfen!
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner