Ein Excel-Makro vorhanden ist, um festzustellen, ob eine Arbeitsmappe vorhanden ist - dummies

Mit diesem Excel-Makro können Sie einen Dateipfad übergeben, um zu bewerten, ob die Datei vorhanden ist. Zum Beispiel können Sie einen Prozess haben, der eine Datei irgendwo auf Ihrem PC manipuliert. Beispielsweise müssen Sie möglicherweise eine vorhandene Arbeitsmappe öffnen, um Daten täglich hinzuzufügen. In diesem Fall müssen Sie möglicherweise testen, ob die zu bearbeitende Datei vorhanden ist.

Funktionsweise des Makros

Das erste, was bei diesem Makro zu beachten ist, ist, dass es sich um eine Funktion handelt, nicht um eine Sub-Prozedur. Wenn Sie diesem Makro eine Funktion zuweisen, können Sie einen beliebigen Dateipfad an ihn übergeben.

In diesem Makro verwenden Sie die Funktion Dir, die eine Zeichenfolge zurückgibt, die den Namen der Datei darstellt, die mit dem übereinstimmt, was Sie übergeben. Diese Funktion kann auf viele Arten verwendet werden, aber hier können Sie damit prüfen, ob der Dateipfad, den Sie übergeben haben, existiert:

Funktion FileExists (FPath As String) As Boolean 'Schritt 1: Deklarieren Sie Ihre Variablen Dim FName As String 'Schritt 2: Verwenden Sie die Funktion Dir, um den Dateinamen FName = Dir (FPath)' zu erhalten. Schritt 3: Wenn die Datei existiert, geben Sie True zurück; else False If FName "Then FileExists = True _ Else: FileExists = False Endfunktion

Schritt 1 deklariert eine String-Variable, die den Dateinamen enthält, der von der Dir-Funktion zurückgegeben wird. FName ist der Name der String-Variablen.

< ! --2 ->

In Schritt 2 versuchen Sie, die Variable FName zu setzen, indem Sie die Variable FPath an die Funktion Dir übergeben, die über die Funktionsdeklarationen übergeben wird (siehe erste Zeile der Code) Diese Struktur verhindert, dass Sie einen Dateipfad fest codieren müssen und ihn stattdessen als Variable übergeben müssen.

Wenn die FName-Variable nicht gesetzt werden kann, existiert der übergebene Pfad nicht. Variable ist leer, Schritt 3 übersetzt dieses Ergebnis lediglich in einen True- oder False-Ausdruck.

Diese Funktion kann wiederum verwendet werden, um einen beliebigen Dateipfad auszuwerten, den Sie an ihn übergeben. Das Schöne beim Schreiben des Makros als Funktion

Das folgende Makro demonstriert die Verwendung dieser Funktion:

Sub Macro1 () Wenn FileExists ("C: TempMyNewBook. xlsx") = True Then MsgBox "Datei existiert." Else MsgBox "Datei existiert nicht." End If End Sub

Verwendung des Makros

Um dieses Makro zu implementieren, können Sie beide Code-Teile kopieren und in eine Standardmodul:

1. Aktivieren Sie den Visual Basic-Editor, indem Sie Alt + F11 drücken.

2. Klicken Sie mit der rechten Maustaste auf den Projekt- / Arbeitsmappennamen im Projektfenster.

3. Wählen Sie Einfügen → Modul.

4. Geben Sie den Code in das neu erstellte Modul ein oder fügen Sie ihn ein.