Wie kann ich mit Excel VBA überprüfen, ob eine Datei oder ein Ordner auf Ihrem Computer vorhanden ist?

Das heutige Lernprogramm zur Office-Automatisierung konzentriert sich darauf, zu lernen, wie Sie überprüfen können, ob eine Datei in einem Ihrer Computerverzeichnisse vorhanden ist.

Vorbereitung

Wenn Sie etwas neu im Programmieren sind, vergewissern Sie sich, dass die Microsoft Office Excel-Entwicklungsregisterkarte aktiviert ist und dass Sie mit einigen grundlegenden Excel-VBA-Programmen vertraut sind .

Überprüfen, ob eine Datei mit Excel VBA vorhanden ist

Der folgende Code nutzt Eingabefelder, um den Pfad zur Datei sowie den Dateinamen selbst vom Benutzer zu erfassen.

Dann nutzt es die Dir -Methode, um zu überprüfen, ob der Dateipfad tatsächlich existiert.

Zuletzt zeigt es dem Benutzer ein Meldungsfeld mit dem Prüfergebnis an.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Überprüfen Sie, ob ein Ordner vorhanden ist

Auf ganz ähnliche Weise können Sie überprüfen, ob ein bestimmter Ordner in Ihrem Betriebssystem existiert. Auch hier nutzen wir die Dir - Methode, aber mit dem vbDirectory- Parameter.

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Verwenden des Codes

• Öffnen Sie Microsoft Excel und navigieren Sie zu Ihrer Arbeitsmappe.
• Klicken Sie auf Entwickler und dann auf Visual Basic.
• Kopieren Sie den Code von oben und fügen Sie ihn als Unterroutine in einem bestimmten Blatt Ihres VBA-Moduls ein.
• Führen Sie (F5) den Code aus.
• Speichern Sie Ihre Arbeitsmappe.

Mögliche Erweiterungen

Der obige Boilerplate-Code kann für die folgenden Anwendungsfälle erweitert werden:

• Erstellen Sie einen Ordner / eine Datei, falls noch nicht vorhanden.
• Löschen Sie eine Datei oder einen Ordner, sofern sie im Dateiverzeichnis Ihres Betriebssystems vorhanden sind.
• Suche nach Dateien/Ordnern mit einem Platzhalter.