Cum se șterge registrul de lucru activ (fișierul curent) în Excel?
Să presupunem că ați descărcat un registru de lucru de pe un site web, iar registrul de lucru s-a deschis automat. Cu toate acestea, registrul de lucru poate să nu fie cel adecvat sau registrul de lucru nu conține informațiile necesare și doriți să le ștergeți. Uneori, probabil că uitați directorul implicit în care fișierele descărcate sunt salvate automat. Nu vă faceți griji, putem șterge registrul de lucru deschis / activ fără a-l închide direct în Excel.
Ștergeți registrul de lucru activ (fișier curent) cu VBA
Un clic pentru a deschide folderul care conține registrul de lucru activ cu acest registru de lucru selectat
Pentru a deschide rapid dosarul / directorul care conține registrul de lucru curent și pentru a selecta registrul de lucru curent în dosarul de deschidere, încercați Kutools pentru Excel Deschideți folderul care conține utilitate.
Ștergeți registrul de lucru activ (fișier curent) cu VBA
Această metodă va introduce un VBA pentru a șterge deschiderea / registrul de lucru activ fără a-l închide în Excel. Vă rugăm să faceți următoarele:
1. apasă pe Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. clic Insera > Module, copiați următorul cod VBA și lipiți în fereastra modulului de deschidere.
VBA: Ștergeți registrul de lucru activ fără a-l închide în 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. apasă pe F5 cheie sau Alerga pentru a rula acest VBA.
notițe:
(1) Acest VBA poate șterge registrul de lucru activ, dar nu poate închide fereastra Excel. Dacă nu se deschid registre de lucru după ștergerea registrului de lucru activ, închideți manual fereastra Excel.
(2) Dacă registrul de lucru activ nu a fost niciodată salvat înainte, acest VBA nu îl poate șterge. Cu toate acestea, puteți șterge direct acest registru de lucru nesalvat închizându-l.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!