Wie überprüfe ich, ob eine Datei in einem Ordner vorhanden ist, und lösche sie dann in Excel?
In diesem Tutorial lernen Sie ein VBA-Skript kennen, mit dem Sie überprüfen können, ob eine bestimmte Datei in einem bestimmten Ordner vorhanden ist. Wenn dies der Fall ist, löschen Sie sie dann aus dem Ordner in Excel.
Überprüfen Sie, ob eine Datei in einem Ordner vorhanden ist, und löschen Sie sie dann in Excel mit VBA-Code
Das folgende VBA-Skript hilft zu überprüfen, ob eine bestimmte Datei in einem Ordner vorhanden ist, und sie zu löschen, wenn sie vorhanden ist. Bitte gehen Sie wie folgt vor.
1. Drücken Sie in einer geöffneten Excel-Arbeitsmappe auf Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul, kopieren Sie dann das folgende VBA-Skript in die Modul (Code) Fenster.
VBA-Code: Überprüfen Sie, ob eine Datei in einem bestimmten Ordner vorhanden ist, und löschen Sie sie dann
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Note: Im VBA-Code, C:\Benutzer\Win10x64Test\Desktop\Anlagen speichern\aaa.xlsx ist der Pfad der Datei, die Sie auf Existenz überprüfen möchten. In diesem Beispiel möchte ich überprüfen, ob eine Excel-Datei mit dem Namen „aaa“ existiert in einem Ordner mit dem Namen „Anhänge speichern" Auf dem Bildschirm. Sie können den Dateipfad und die Dateierweiterung Ihren Anforderungen entsprechend ändern.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
4. Wenn die Datei existiert, erhalten Sie a Kutools for Excel Dialogfeld wie im Screenshot unten gezeigt. Drücke den OK Schaltfläche, um diese Datei aus dem Ordner zu entfernen.
Wenn die Datei nicht im Ordner vorhanden ist, eine andere Kutools for Excel Es erscheint auch ein Dialogfeld, um Sie darauf aufmerksam zu machen.
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!