Wie löscht man die aktive Arbeitsmappe (die aktuelle Datei) in Excel?

Diese Methode stellt ein VBA vor, um die geöffnete/aktive Arbeitsmappe in Excel zu löschen, ohne sie zu schließen. Bitte folgen Sie diesen Schritten:

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das geöffnete Modulfenster ein.

VBA: Aktive Arbeitsmappe ohne Schließen in Excel löschen

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub

3. Drücken Sie die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um dieses VBA auszuführen.

Hinweise:

(1) Dieses VBA kann die aktive Arbeitsmappe löschen, aber nicht das Excel-Fenster schließen. Wenn nach dem Löschen der aktiven Arbeitsmappe keine weiteren Arbeitsmappen geöffnet sind, schließen Sie das Excel-Fenster bitte manuell.

(2) Wenn die aktive Arbeitsmappe noch nie gespeichert wurde, kann dieses VBA sie nicht löschen. Sie können diese nicht gespeicherte Arbeitsmappe jedoch direkt durch Schließen löschen.