Moin,
Vielleicht kann mir hier jemand weiterhelfen.
Mein Problem ist Folgendes:
Ich möchte eine Excel Datei mit wichtigen Informationen aus div. anderen Workbooks speisen. Die Dateien befinden sich in unterschiedlichen Ordnern und sind allesamt jeweils mit Datum und einer festgesetzten Buchstabenreihe im Namen versehen. Dazu kommt, dass das Kürzel des Erstellers im Namen enthalten ist.
Nun kann ich Dateien öffnen lassen und kopieren in dem ich das Datum als Variable einsetze und die Buchstabenreihe als Konstante. Das Kürzel allerdings ändert sich bei so ziemlich jeder Datei.
Gibt es eine Möglichkeit die Datei mit Namen zu öffnen und das Kürzel dabei außen vor zu lassen bzw. einfach unbestimmt?
Würde mich freuen wenn man mir hier helfen kann, ich steh am Schlauch.
Liebe Grüße
Hallo,
im Prinzip, hier ein Ansatz:
const Nm as string = "qwe" 'String in jeder Datei
dim Pfade, Pfad
Pfade = array("c:\Temp\", c:\users\[user]\documents\")
for each Pfad in Pfade
f = dir(pfad & "*.xlsx")
if instr(1,f,Nm) > 0 then
set WB = Workbooks.Open(Pfad & f) 'dieses Datei wird geöffnet
'hier der Code für die Auswertung einer Datei
wv,close 0
end if
next Pfad
(ungeprüft)
Hallo,
hier noch eine Kurzform als Alternative.
Es darf hier aber nur eine Datei mit Unterscheidung des Kürzels vorhanden sein Also z.B. eine Datei zu diesem Datum, bei der lediglich das Kürzel variiert.