Come eliminare la cartella di lavoro attiva (file corrente) in Excel?
Supponiamo che tu abbia scaricato una cartella di lavoro da un sito Web e la cartella di lavoro si sia aperta automaticamente. Tuttavia, la cartella di lavoro potrebbe non essere quella corretta oppure la cartella di lavoro non contiene le informazioni richieste e si desidera eliminarla. A volte, probabilmente dimentichi la directory predefinita in cui vengono salvati automaticamente i file scaricati. Non preoccuparti, possiamo eliminare la cartella di lavoro aperta / attiva senza chiuderla direttamente in Excel.
Elimina la cartella di lavoro attiva (file corrente) con VBA
Un clic per aprire la cartella che contiene la cartella di lavoro attiva con questa cartella di lavoro selezionata
Per aprire rapidamente la cartella / directory contenente la cartella di lavoro corrente e selezionare la cartella di lavoro corrente nella cartella di apertura, prova Kutools per Excel Apri cartella contenente utilità.
Elimina la cartella di lavoro attiva (file corrente) con VBA
Questo metodo introdurrà un VBA per eliminare la cartella di lavoro aperta / attiva senza chiuderla in Excel. Si prega di fare quanto segue:
1. premi il altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Moduli, copia il seguente codice VBA e incollalo nella finestra del modulo di apertura.
VBA: elimina la cartella di lavoro attiva 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 Sub3. premi il F5 chiave o Correre pulsante per eseguire questo VBA.
Note:
(1) Questo VBA può eliminare la cartella di lavoro attiva, ma non può chiudere la finestra di Excel. Se non ci sono cartelle di lavoro aperte dopo l'eliminazione della cartella di lavoro attiva, chiudere manualmente la finestra di Excel.
(2) Se la cartella di lavoro attiva non è mai stata salvata prima, questo VBA non è in grado di eliminarla. Tuttavia, puoi eliminare direttamente questa cartella di lavoro non salvata chiudendola.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
