So löschen sie ordner mit vba (mit beispielen)

Sie können in VBA die folgenden Methoden verwenden, um Ordner zu löschen:

Methode 1: Alle Dateien im Ordner löschen

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

Dieses spezielle Makro löscht alle Dateien im Ordner My_Data .

Methode 2: Löschen Sie den gesamten Ordner

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

Dieses spezielle Makro löscht den gesamten Ordner „My_Data“ , sodass er nicht mehr vorhanden ist.

Die Zeile „On Error Resume Next“ teilt VBA mit, dass keine Fehlermeldung angezeigt werden soll, wenn ein Fehler auftritt und der Ordner nicht gefunden wird.

Anschließend verwenden wir „On Error GoTo 0“ , um die Fehlermeldungen auf die Standardeinstellungen zurückzusetzen.

Wenn Sie eine Fehlermeldung anzeigen möchten, wenn der Ordner nicht gefunden wird, entfernen Sie einfach diese beiden Zeilen aus dem Code.

Die folgenden Beispiele zeigen, wie jede Methode in der Praxis mit dem folgenden Ordner namens My_Data verwendet wird, der drei Excel-Dateien enthält:

Beispiel 1: Alle Dateien im Ordner mit VBA löschen

Nehmen wir an, wir möchten mit VBA alle Dateien aus dem Ordner My_Data löschen.

Dazu können wir das folgende Makro erstellen:

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

Sobald wir dieses Makro ausführen und den Ordner erneut öffnen, werden wir sehen, dass alle Dateien gelöscht wurden:

Beispiel 2: Mit VBA einen ganzen Ordner löschen

Wenn Sie mit VBA den gesamten Ordner namens My_Data löschen möchten, sodass er nicht mehr existiert, können Sie das folgende Makro erstellen:

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

Sobald wir dieses Makro ausführen und den Datei-Explorer öffnen, werden wir feststellen, dass der Ordner „My_Data“ nicht mehr existiert:

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie die Anzahl der Blätter in einer Arbeitsmappe
VBA: So extrahieren Sie Daten aus einer anderen Arbeitsmappe
VBA: So löschen Sie ein Blatt, wenn der Name bestimmten Text enthält