Come eliminare la cartella di lavoro corrente (file corrente) in Excel?

Questo metodo introdurrà un VBA per eliminare la cartella di lavoro corrente/aperta senza chiuderla in Excel. Procedi come segue:

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, copia il seguente codice VBA e incollalo nella finestra del modulo aperto.

VBA: Elimina la Cartella di Lavoro Corrente senza chiuderla in Excel

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. Premi il tasto F5 o clicca sul pulsante Esegui per eseguire questo VBA.

Note:

(1) Questo VBA può eliminare la cartella di lavoro corrente, ma non può chiudere la finestra di Excel. Se non ci sono altre cartelle di lavoro aperte dopo aver eliminato quella corrente, chiudi manualmente la finestra di Excel.

(2) Se la cartella di lavoro corrente non è mai stata salvata prima, questo VBA non sarà in grado di eliminarla. Tuttavia, puoi eliminare questa cartella di lavoro non salvata chiudendola direttamente.