Wie überprüfe ich, ob eine Datei in einem bestimmten Ordner vorhanden ist?
Angenommen, Sie haben einen Ordner, der mehrere Dateien enthält, und möchten nun anhand von Excel feststellen, ob in diesem Ordner eine bestimmte Datei vorhanden ist. In diesem Artikel werde ich eine schnelle Methode vorstellen, mit der Sie überprüfen können, ob eine Datei in einem bestimmten Ordner in Details über Excel vorhanden ist.
Überprüfen Sie, ob eine Datei in einem bestimmten Ordner mit VBA-Code vorhanden ist
Überprüfen Sie, ob eine Datei in einem bestimmten Ordner mit VBA-Code vorhanden ist
Um zu überprüfen, ob eine Datei in einem bestimmten Ordner vorhanden ist oder nicht, können Sie den folgenden VBA-Code anwenden. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Überprüfen Sie, ob eine Datei in einem bestimmten Ordner vorhanden ist:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Hinweis: Im obigen Code sollten Sie den Dateipfad und den Namen ändern C: \ Benutzer \ DT168 \ Desktop \ Testordner \ Book2.xlsx " auf Ihre Bedürfnisse.
3. Nach dem Einfügen des Codes drücken Sie bitte F5 Schlüssel zum Ausführen dieses Codes:
(1.) Wenn die Datei vorhanden ist, erhalten Sie den folgenden Screenshot:
(2.) Wenn die Datei nicht vorhanden ist, erhalten Sie die folgende Warnung:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!