In VBA können wir jede auf dem Computer vorhandene Datei mit VBA-Codes löschen. Der Code, mit dem eine Datei gelöscht wird, wird als Kill-Befehl bezeichnet. Die Methode zum Löschen einer Datei besteht darin, dass wir zuerst den Pfad der Datei angeben, dh wo Die Datei befindet sich auf dem Computer. Anschließend löschen wir die Datei mit dem Befehl Kill.
Wie lösche ich Dateien mit VBA-Code?
VBA ist am Anfang eine schwierige Sache, aber wenn Sie mehr Zeit mit VBA verbringen, werden Sie es genauso lieben wie ich. Wir können Dateien aus einem anderen Ordner eines Computers öffnen, mit ihnen arbeiten und jetzt können wir auch Dateien mithilfe der VBA-Codierung löschen. In diesem Artikel zeigen wir Ihnen, wie Sie Dateien mit VBA-Code in einem bestimmten Ordner löschen können.
Wenn wir mit großen Projekten arbeiten, erstellen wir normalerweise viele Zwischendateien, um unseren Prozess zu unterstützen. Nachdem alle Arbeiten erledigt sind, müssen wir diese Dateien löschen, um künftige Verwirrung zu vermeiden.
Und ein Szenario ist, wenn wir normalerweise eine E-Mail erhalten. Wir speichern Anhänge für unsere reguläre Arbeit oder möchten den Bericht nur für diesen Zeitpunkt anzeigen. Später müssen wir diese Dateien möglicherweise löschen.
Das manuelle Löschen dieser Dateien nimmt einige Zeit in Anspruch, oder wir vergessen möglicherweise, sie zu speichern, und sie belegen den Speicherplatz auf unserem Computer. Wir zeigen Ihnen, wie Sie diese Dateien mit einfachen VBA-Codes löschen.
Kill-Methode zum Löschen von Dateien in einem Ordner mithilfe von VBA-Code
Eine einfache KILL-Funktion löscht den Ordner, eine bestimmte Datei, alle Excel-Dateien usw. Sehen Sie sich die Syntax der KILL-Methode in VBA an. Die Kill-Methode kann keine schreibgeschützten Dateien löschen.
Pfadname : Pfadname ist nichts anderes als der Ordnerpfad auf dem Computer, um die Dateien zu löschen.
Hinweis: Der Pfadname kann auch Platzhalterzeichen enthalten. Wir können ein Sternchen (*) und Fragezeichen (?) Als Platzhalterzeichen in Excel verwenden.
Ein Sternchen (*) ist nützlich, um mit einer beliebigen Zeichenfolge beliebiger Länge übereinzustimmen, auch wenn Null berücksichtigt wird.
Das Fragezeichen (?) Ist nützlich, um nur ein einzelnes Zeichen zu finden.
Bestimmten Dateinamen löschen
Zum Beispiel habe ich einen Ordner wie unten.
In diesem Ordner möchte ich die Datei mit dem Namen "Datei 5" löschen. Starten Sie den Code mit der KILL-Funktion.
Code:
Sub Delete_Files () Kill (PathName) End Sub
Kopieren Sie den Ordnerpfad und fügen Sie ihn ein.
Und in doppelte Anführungszeichen einfügen.
Töte "E: Excel-Dateien"
Setzen Sie nun einen weiteren Schrägstrich () und geben Sie den Dateinamen mit der Erweiterung ein.
Töte "E: Excel Files File5.xlsx"
Wenn Sie diesen Code ausführen, wird die Datei mit dem Namen "Datei 5.xlsx" im angegebenen Ordnerpfad gelöscht.
Alle Excel-Dateien löschen
Um alle Excel-Dateien im Ordner mit VBA zu löschen, müssen Sie Platzhalterzeichen mit der KILL-Funktion verwenden. Nachdem wir den Ordnerpfad erwähnt haben, müssen wir die Datei als "* .xl *" erwähnen.
Code:
Töte "E: Excel-Dateien *. Xl *"
Wenn Sie diesen Code ausführen, werden alle Excel-Dateien im Ordner gelöscht.
Wir haben gesehen, wie wir eine einzelne Excel-Datei und alle Excel-Dateien löschen können. Wenn wir jedoch alle Dateien im Ordner löschen möchten, wie können wir sie löschen? Kann es andere Dateien löschen, da wir Excel VBA verwenden?
Die Antwort ist ja!!! Verwenden Sie den folgenden Code, um alle Dateien im Ordner zu löschen.
Code:
Töte "E: Excel-Dateien *. *"
Nur ganzen Ordner löschen
Ist es möglich, den gesamten Ordner selbst zu löschen?
Ja, es ist möglich.
Dazu müssen wir zunächst alle Dateien im Ordner mit der KILL-Funktion löschen und dann den Ordner löschen. Außerdem müssen wir eine weitere Funktion namens RmDir verwenden .
Code:
RmDir "E: Excel-Dateien "
Hier löscht RmDir nur den leeren Ordner, wenn sich ein Unterordner dort befindet, wo er sie nicht löschen kann.
Löschen Sie alle Textdateien im Ordner
Verwenden Sie den folgenden Code, um alle Textdateien im Ordner zu löschen.
Code:
Töte "E: Excel-Dateien *. Txt"
Schreibgeschützte Dateien löschen
Wie ich bereits sagte, kann die KILL-Funktion keine schreibgeschützten Dateien im Ordner löschen. In einem solchen Fall müssen wir die beiden anderen Funktionen "Dir $" und "SetAttr" verwenden. Unten finden Sie den Beispielcode zum Löschen der schreibgeschützten Dateien.
Code:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: Excel-Dateien " Wenn Len (Dir $ (DeleteFile))> 0, dann SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
Sie können diese VBA-Excel-Vorlage zum Löschen von Dateien hier herunterladen - VBA-Excel-Vorlage zum Löschen von Dateien.
