Hvordan slettes en aktiv projektmappe (nuværende fil) i Excel?
Lad os sige, at du downloadede en projektmappe fra et websted, og projektmappen åbnede automatisk. Det kan dog være, at projektmappen ikke er den rigtige, eller projektmappen indeholder ikke nødvendige oplysninger, og du vil slette den. Nogle gange glemmer du sikkert standardbiblioteket, som downloadede filer automatisk gemmes i. Bare rolig, vi kan slette den åbne/aktive projektmappe uden at lukke den direkte i Excel.
Slet aktiv projektmappe (aktuel fil) med VBA
Et klik for at åbne en mappe, der indeholder en aktiv projektmappe med denne valgte projektmappe
For hurtigt at åbne mappen / biblioteket, der indeholder den aktuelle projektmappe, og have den aktuelle projektmappe valgt i åbningsmappen, skal du prøve Kutools til Excel Åbn Indeholdende Mappe nytte.
Slet aktiv projektmappe (aktuel fil) med VBA
Denne metode vil introducere en VBA til at slette åbnende/aktive projektmappe uden at lukke den i Excel. Gør venligst som følger:
1. Tryk på andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.
2. klik indsatte > Moduler, kopier følgende VBA-kode og indsæt i åbningsmodulvinduet.
VBA: Slet Active Workbook uden at lukke den i 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. Tryk på F5 nøgle eller Kør knap for at køre denne VBA.
Noter:
(1) Denne VBA kan slette aktiv projektmappe, men kan ikke lukke Excel-vinduet. Hvis der ikke åbnes projektmapper efter aktiv projektmappe er slettet, skal du lukke Excel-vinduet manuelt.
(2) Hvis aktiv projektmappe aldrig er blevet gemt før, er denne VBA ikke i stand til at slette den. Du kan dog slette denne ikke-gemte projektmappe direkte ved at lukke den.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!