Eine der vorteilhaftesten Anwendungen von Excel VBA In diesem Artikel zeige ich Ihnen, wie Sie mit Hilfe von Excel prüfen können, ob eine Datei auf unserem Computer vorhanden ist oder nicht. VBA .

VBA-Code zur Prüfung, ob eine Datei vorhanden ist oder nicht (Schnellansicht)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "The file doesn't exist." Else MsgBox "The file exists." End If End Sub 

Download Arbeitsbuch Praxis

Laden Sie dieses Übungsheft herunter, um zu üben, während Sie diesen Artikel lesen.

Ein Überblick über den VBA-Code zur Prüfung, ob eine Datei vorhanden ist oder nicht (Schritt-für-Schritt-Analyse)

Kommen wir also ohne weitere Verzögerung zu unserer heutigen Hauptdiskussion. Wir werden die VBA Code, um Schritt für Schritt zu lernen, wie man überprüft, ob eine Datei auf unseren Computern existiert oder nicht.

⧪ Schritt 1: Einfügen der erforderlichen Eingaben

Gleich zu Beginn des Codes müssen wir die erforderlichen Eingaben vornehmen. In diesem Code ist nur eine einzige Eingabe erforderlich, nämlich der Name der gesuchten Datei. Geben Sie den vollständigen Dateinamen ein (zusammen mit dem zugehörigen Verzeichnis).

 File_Name = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Schritt 2: Extrahieren des Dateinamens mit der VBA Dir-Funktion

Als nächstes wenden wir einen kleinen Trick an: Wir verwenden die VBA Dir-Funktion um den Namen der Datei zu extrahieren. Wenn keine solche Datei existiert, wird die Dir-Funktion gibt eine Null-Zeichenkette zurück.

 Datei_Name = Dir(Datei_Name) 

⧪ Schritt 3: Prüfen, ob die Datei vorhanden ist, mit Hilfe eines If-Blocks

Dies ist der wichtigste Schritt. Wir haben bereits gesagt, dass die Funktion Dir einen Null-String zurückgibt, wenn keine Datei mit dem angegebenen Namen existiert. Wir werden diese Eigenschaft innerhalb einer If-Block um zu prüfen, ob die Datei existiert oder nicht.

 If File_Name = "" Then MsgBox "Die Datei existiert nicht." Else MsgBox "Die Datei existiert." End If 

Die vollständige VBA Code sein wird:

⧭ VBA-Code:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "The file doesn't exist." Else MsgBox "The file exists." End If End Sub 

⧭ Ausgabe:

Führen Sie den Code aus, und auf meinem Computer wird eine Meldung angezeigt, "Die Datei existiert" weil sie auf meinem Rechner tatsächlich existiert.

Auf Ihrem Rechner kann die Ausgabe unterschiedlich ausfallen, je nachdem, ob die Datei existiert oder nicht.

Lesen Sie mehr: Excel VBA: Prüfen, ob ein Blatt vorhanden ist (2 einfache Methoden)

Entwickeln eines Makros, um mit Excel VBA zu prüfen, ob ein Bereich von Dateien vorhanden ist oder nicht

Hier haben wir einen Datensatz in einem Excel-Arbeitsblatt, der die Namen einiger Dateien zusammen mit den Verzeichnissen im Bereich B4:B8 .

Unser Ziel ist es, ein Makro zu entwickeln, das Folgendes schreibt Existiert / Existiert nicht neben jedem von ihnen, nachdem Sie überprüft haben, ob sie auf dem Computer existieren oder nicht.

⧪ Schritt 1: Öffnen des VBA-Fensters

Presse ALT + F11 auf Ihrer Tastatur, um die Visual Basic Fenster.

⧪ Schritt 2: Einfügen eines neuen Moduls

Gehe zu Einfügen> Modul in der Symbolleiste und klicken Sie auf Modul Ein neues Modul namens Modul1 (oder irgendetwas anderes, je nach Ihrer Vorgeschichte) öffnen.

⧪ Schritt 3: Einfügen des VBA-Codes

Dies ist der wichtigste Schritt. Fügen Sie Folgendes ein VBA Code in dem Modul.

⧭ VBA-Code:

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ Schritt 5: Ausführen des Codes

Klicken Sie auf das Sub / UserForm ausführen aus der obigen Symbolleiste.

Der Code wird ausgeführt, und Sie erhalten "Existiert" für die vorhandenen Dateien, und "Existiert nicht" für die Dateien, die nicht existieren.

Lesen Sie mehr: Prüfen, ob ein Wert in einem Bereich in Excel vorhanden ist (8 Möglichkeiten)

Schlussfolgerung

Dies ist also der Prozess zur Entwicklung eines Makro um eine E-Mail aus Excel mit einem Anhang zu versenden. Haben Sie Fragen? Fragen Sie uns. Und vergessen Sie nicht, unsere Website zu besuchen ExcelWIKI für weitere Beiträge und Aktualisierungen.