Koma9 Geschrieben 10. April 2002 Geschrieben 10. April 2002 bei der vorletzten zeile, findet er die datei nicht, was kann ich tun? str1 = "PMD_2002_KW" 'erster Teil des Dateinamens str2 = "_IN.xls" 'zweiter Teil des Dateinamens datei1 = str1 + Format(Date, "ww") + str2 'Dateiname wird aus dem 1. & 2. Teil und der KW zusammengesetzt datei2 = str1 + CStr(CInt(Format(Date, "ww")) - 1) + str2 quelle = "D:\wwwroot\Stueckzahlen\DATEN02\" With Application.FileSearch 'Dateien suchen... .NewSearch .LookIn = quelle '... im Ordner Quelle If .Execute() > 0 Then 'wenn mehr als 0 Dateien gefunden.. MsgBox "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden." 'ausgabe der Messagebox 'For i = 1 To .FoundFiles.Count 'Schleife wird so oft wiederholt wie dateien da sind quelle = "D:\wwwroot\Stueckzahlen\DATEN02\" .LookIn = quelle Workbooks.Open datei1 Zitieren
Uruz Geschrieben 10. April 2002 Geschrieben 10. April 2002 evt solltest du schreiben Workbooks.Open quelle + datei1 ? dann hast du definitiv auch die Pfadangabe... Uruz P.S.: k. A. was das fuer eine Programmiersprache sein soll... aber ich denke mal, dass das ein logischer Fehler sein koennte... Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.