HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Existiert die Datei?

Existiert die Datei?
23.02.2005 11:38:00
Matthias
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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Existiert die Datei?
23.02.2005 11:42:30
Harald
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
AW: Existiert die Datei?
Oliver
Ich bin mir nicht sicher, aber könnte man nicht auch mit
On Error Resume Next
arbeiten?
Grüße

Meistgelesene Forumthreads (12 Monate)