Wie überprüft man, ob eine Datei in einem bestimmten Ordner vorhanden ist?
Wenn Sie einen Ordner mit mehreren Dateien haben und feststellen müssen, ob eine bestimmte Datei vorhanden ist, kann Excel Ihnen helfen, diese Aufgabe zu automatisieren. Dieser Artikel bietet eine einfache VBA-Methode, um zu überprüfen, ob eine Datei in einem bestimmten Ordner vorhanden ist.
Überprüfen Sie mit VBA-Code, ob eine Datei in einem bestimmten Ordner vorhanden ist
Überprüfen Sie mit VBA-Code, ob eine Datei in einem bestimmten Ordner vorhanden ist
Um zu überprüfen, ob eine Datei in einem bestimmten Ordner im Excel-Arbeitsblatt vorhanden ist oder nicht, können Sie den folgenden VBA-Code anwenden. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und 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 exists", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End SubHinweis: Im obigen Code sollten Sie den Dateipfad und Namen C:\Users\DT168\Desktop\Test folder\Book2.xlsx" entsprechend Ihren Anforderungen ändern.
3. Nachdem Sie den Code eingefügt haben, drücken Sie bitte die F5-Taste, um diesen Code auszuführen:
(1.) Wenn die Datei vorhanden ist, erhalten Sie den folgenden Screenshot:
(2.) Wenn die Datei nicht vorhanden ist, erhalten Sie die folgende Warnung:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins