Preskoči na glavno vsebino

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.

odprt oglas, ki vsebuje mapo 1


puščica modri desni mehurček 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

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

Opis


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is not working using a .exe file, what would the fix be for that?
This comment was minimized by the moderator on the site
très bonne question, je me pose la même as-tu trouvé la solution?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations