In Microsoft Excel können wir mithilfe von VBA-Code überprüfen, ob eine Datei an einem bestimmten Speicherort vorhanden ist. Das Makro zeigt den Status in Form eines Meldungsfelds an. In diesem Artikel ermitteln wir mithilfe von VBA-Code, ob der Status einer bestimmten Datei vorhanden ist oder nicht. Mit der Dir-Funktion können wir mithilfe von Excel VBA.

prüfen, ob die Datei am Speicherort vorhanden ist Mit diesem Programm können wir überprüfen, ob sich bereits eine Datei am selben Speicherort befindet. 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 Speicherort. Ich hätte gerne ein Makro, um zu überprüfen und im Gegenzug zu zeigen, dass die Datei auf dem angegebenen Pfad verfügbar ist oder nicht.

Zur Veranschaulichung dieses Beispiels speichern wir die Datei „Sample.xlsx“ im Pfad „D: \ FolderName \ Sample.xlsx“

image 1

Um festzustellen, ob die Arbeitsmappe vorhanden ist, müssen Sie die folgenden Schritte ausführen, um den VB-Editor zu starten:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

image 2

image 3

aus

===

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 "File doesn't exist"

Else

Workbooks.Open "D:\FolderName\Sample.xlsx"

End If

End Sub

image 4

  • Jetzt ist das Makro so eingestellt, dass es ausgeführt wird. Wir verwenden die Tastenkombination F5 und die Beispieldatei wird geöffnet

image 5

  • Wenn die Datei unter dem vordefinierten Pfad nicht verfügbar ist, wird im folgenden Meldungsfeld

angezeigt Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Sie können uns auch auf Twitter und Facebook folgen.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns an [email protected]