Ein Klick zum Öffnen eines Ordners, der eine aktive Arbeitsmappe mit dieser Arbeitsmappe enthält

Diese Methode führt eine VBA ein, um öffnende / aktive Arbeitsmappen zu löschen, ohne sie in Excel zu schließen. Bitte gehen Sie wie folgt vor:

1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2 Klicken Insert > ModulKopieren Sie den folgenden VBA-Code und fügen Sie ihn in das sich öffnende Modulfenster ein.

VBA: Löschen Sie Active Workbook, ohne es in Excel zu schließen

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 Schlüssel oder Führen Sie Schaltfläche, um diese VBA auszuführen.

Notizen:

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

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