In Microsoft Excel können wir mit VBA-Code überprüfen, ob die Datei an einem bestimmten Ort vorhanden ist. Das Makro zeigt den Status in Form einer Meldungsbox an. In diesem Artikel werden wir mithilfe von VBA-Code feststellen, ob der Status einer bestimmten Datei vorhanden ist oder nicht. Wir können die Dir-Funktion verwenden, um mithilfe von Excel VBA zu überprüfen, ob die Datei am Speicherort vorhanden ist.
Mit diesem Programm können wir überprüfen, ob bereits eine Datei am selben Ort vorhanden ist. Damit wir die alte Datei löschen oder umbenennen können.
Frage: Wenn wir ein Makro erstellen, um die Aufgabe zu automatisieren, speichern wir die Ausgabedatei im Allgemeinen an einem Ort. Ich möchte ein Makro haben, um zu überprüfen und im Gegenzug anzuzeigen, dass die Datei unter dem bestimmten Pfad verfügbar ist oder nicht.
Zur Veranschaulichung dieses Beispiels speichern wir die Datei „Sample.xlsx“ im Pfad „D:\FolderName\Sample.xlsx“
Um festzustellen, ob die Arbeitsmappe vorhanden ist, müssen wir die folgenden Schritte ausführen, um den VB-Editor zu starten:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
- Klicken Sie auf Einfügen und dann auf Modul
- Dadurch wird ein neues Modul erstellt
- Geben Sie den folgenden Code in das Standardmodul ein
Sub FileExists() Dim FilePath As String Dim TestStr As String FilePath = "D:\FolderName\Sample.xlsx" TestStr = "" On Error Resume Next TestStr = Dir(FilePath) On Error GoTo 0 If TestStr = "" Then MsgBox " Datei existiert nicht" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
- Jetzt ist das Makro bereit zur Ausführung, wir verwenden die Tastenkombination F5 und die Datei "Beispiel" wird geöffnet
- Wenn die Datei unter dem vordefinierten Pfad nicht verfügbar ist, wird das folgende Meldungsfeld angezeigt
Abschluss: Auf diese Weise können wir mit VBA-Code leicht erkennen, ob eine bestimmte Datei unter einem bestimmten Pfad existiert oder nicht.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site