Kako izbrisati aktivni delovni zvezek (trenutno datoteko) v Excelu?
Recimo, da ste s spletnega mesta prenesli delovni zvezek in delovni zvezek se je samodejno odprl. Vendar delovni zvezek morda ni pravi ali delovni zvezek ne vsebuje zahtevanih podatkov in ga želite izbrisati. Včasih verjetno pozabite na privzeti imenik, v katerega se samodejno shranijo prenesene datoteke. Brez skrbi, odpiralni / aktivni delovni zvezek lahko izbrišemo, ne da bi ga zaprli neposredno v Excelu.
Izbrišite aktivni delovni zvezek (trenutna datoteka) z VBA
Z enim klikom odprete mapo, ki vsebuje aktivni delovni zvezek z izbrano to delovno knjigo
Če želite hitro odpreti mapo / imenik, ki vsebuje trenutni delovni zvezek, in izbrati trenutni delovni zvezek v odpiralni mapi, poskusite Kutools za Excel Odprite vsebuje mapo uporabnost.
Izbrišite aktivni delovni zvezek (trenutna datoteka) z VBA
Ta metoda bo uvedla VBA za brisanje odprtega / aktivnega delovnega zvezka, ne da bi ga zaprli v Excelu. Naredite naslednje:
1. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.
2. klik Vstavi > Moduli, kopirajte naslednjo kodo VBA in jo prilepite v okno odpiralnega modula.
VBA: izbrišite aktivni delovni zvezek, ne da bi ga zaprli v Excelu
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. Pritisnite F5 ključ ali Run za zagon tega VBA.
Opombe:
(1) Ta VBA lahko izbriše aktivni delovni zvezek, ne more pa zapreti okna Excel. Če se po izbrisanem delovnem zvezku ne odpre noben delovni zvezek, ročno zaprite okno Excel.
(2) Če aktivni delovni zvezek še nikoli ni bil shranjen, ga ta VBA ne more izbrisati. Lahko pa to neshranjeno delovno knjigo izbrišete neposredno, tako da jo zaprete.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!