Existiert die Datei?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Existiert die Datei?
von: Matthias
Geschrieben am: 23.02.2005 11:38:00
Hallo, ich habe ein kleines Problem.
Ich lese mit einem VBA-Programm Textdateien aus und integriere sie in eine Tabelle. Das Problem ist, wenn diese Datei nicht existiert, stürzt das Programm ab. Ich will nun eine Fehlerroutine erstellen, und habe versucht mit dem Befehl FileExists zu prüfen, ob die Datei vorhanden ist, aber es funktioniert überhaupt nicht.
Wer kann mir helfen?
Danke im Voraus.

Bild

Betrifft: AW: Existiert die Datei?
von: Harald E
Geschrieben am: 23.02.2005 11:42:30
Hallo Matthias,
hier ein Ansatz aus meiner "Praxis"
Dim Filename As String
Filename = "I:\NIO_Zahlen\FS\NIO_FS" & Format(ActiveCell, "YYYYMMDD") & ".xls"
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Gruß
Harald
Bild

Betrifft: AW: Existiert die Datei?
von: Oliver
Geschrieben am: 23.02.2005 11:52:35
Ich bin mir nicht sicher, aber könnte man nicht auch mit
On Error Resume Next
arbeiten?
Grüße
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Existiert die Datei?"