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?"