VBA: Prüfen, ob eine Datei existiert
Inhaltsverzeichnis
Problemdefinition
Ein Benutzer möchte feststellen, ob eine bestimmte Datei, in diesem Fall 'c:\temp\test.xls', existiert.
Lösung des Problems mit VBA
Mit VBA kann man eine Funktion erstellen, die überprüft, ob eine Datei existiert.
Anwendungsbeispiel aus der Praxis
- Öffne den VBA-Editor, indem du
Alt + F11 drückst.
- Rechtsklicke im Projekt-Explorer auf das Projekt, in dem du die Funktion erstellen möchtest, und wähle 'Modul einfügen'.
- Im Code-Fenster des Moduls füge den folgenden Code ein:
Function DateiExistiert(pfad As String) As Boolean
DateiExistiert = Dir(pfad) <> ""
End Function
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Jetzt kannst du die
DateiExistiert-Funktion in einer Zelle verwenden, um zu überprüfen, ob eine Datei existiert. Zum Beispiel liefert =DateiExistiert("c:\temp\test.xls") WAHR, wenn die Datei existiert, und FALSCH, wenn sie nicht existiert.
In diesem Beispiel wird die Dir-Funktion verwendet, um zu überprüfen, ob eine Datei existiert. Die Dir-Funktion gibt den Namen der Datei zurück, wenn sie existiert, und eine leere Zeichenfolge, wenn sie nicht existiert.
Tipps
- Du kannst den Pfad der Datei ändern, um andere Dateien zu überprüfen.
Verwandte Funktionen
Dir: Diese Funktion gibt den Namen einer Datei oder eines Ordners zurück, der die angegebenen Kriterien erfüllt.
Zusammenfassung
Mit VBA kann man eine benutzerdefinierte Funktion erstellen, die die Dir-Funktion verwendet, um den Namen einer Datei zurückzugeben, wenn sie existiert, und eine leere Zeichenfolge, wenn sie nicht existiert.