Wie löscht man die aktive Arbeitsmappe (die aktuelle Datei) in Excel?
Angenommen, Sie haben eine Arbeitsmappe von einer Website heruntergeladen und die Arbeitsmappe öffnete sich automatisch. Allerdings könnte diese Arbeitsmappe nicht die richtige sein oder sie enthält nicht die benötigten Informationen, und Sie möchten sie löschen. Manchmal vergessen Sie möglicherweise das Standardverzeichnis, in das heruntergeladene Dateien automatisch gespeichert werden. Keine Sorge, wir können die geöffnete/aktive Arbeitsmappe direkt in Excel löschen, ohne sie zu schließen.
Aktive Arbeitsmappe (aktuellen Datei) mit VBA löschen
Aktive Arbeitsmappe (aktuellen Datei) mit VBA löschen
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 Sub3. 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.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins