Datei1 = Dir() und dann Datei öffnen geht nicht
09.09.2005 15:17:42
Uschi
was mache ich falsch. Ich bin kurz vorm Verzweifeln.
Folgender Code:
Sub zufuegen()
Dim Datei1 As String
Datei1 = Dir("C:\UK\Incentive\August\*.xls")
Do While Datei1 <> ""
Workbooks.Open Filename:=Datei1
'hier werden dann Tabellenblätter eingefügt, aber darum geht es nicht, ich bekomme schon vorher den Fehler
Datei1 = Dir
Loop
End Sub
Ich bekomme immer die Meldung, daß Excel die Datei nicht finden könnte. An Tippfehlern kann es nicht liegen, ich habe mittlerweile alles über kopieren erstellt.
Anzeige