Excel VBA: Gem og luk arbejdsmappe (5 passende eksempler)

Hugh West

03-10-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

I denne artikel vil vi vise dig 5 metoder til anvendelse af Excel VBA til redde og Luk arbejdsbog Da tid er meget værdifuldt, kan vi spare meget tid ved at springe over banale opgaver ved hjælp af Excel VBA . Desuden har vi taget et datasæt bestående af 3 kolonner : " Navn ", " Født ", og " Seneste arbejde ". Dette datasæt repræsenterer 6 personers fødselsår og deres seneste filmoplysninger.

Download arbejdsbog til øvelser

VBA til at gemme og lukke arbejdsmappe.xlsm

5 eksempler på at gemme og lukke arbejdsmappe ved hjælp af VBA i Excel

1. Gem og luk aktiv projektmappe ved hjælp af Excel VBA

For den første metode vil vi redde og luk Aktiv arbejdsbog ved hjælp af VBA-makro . Vi vil bringe den VBA-modul vindue, skriv vores kode og udfør den derefter for at nå vores mål. Lad os uden videre gå i gang med trin for trin-proceduren.

Trin:

Før vi skriver vores kode, skal vi hente VBA-modul . for at gøre det -

  • For det første, fra den Udvikler faneblad>>>> vælg Visual Basic .

Alternativt kan du trykke på ALT + F11 til at gøre dette også. " Microsoft Visual Basic til anvendelse " vil blive vist efter dette.

  • For det andet, fra Indsæt >>>> vælg Modul .

Her skal vi skrive vores kode.

  • For det tredje skal du skrive følgende kode i Modul . 
 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub

VBA-kode opdeling

  • For det første kalder vi vores Underprocedure Gem_og_sluk_aktiv_arbejdsbog .
  • Så henviser vi til vores nuværende Arbejdsbog som ActiveWorkbook .
  • Derefter kan du ved hjælp af Luk metode vi er lukning vores fil.
  • Endelig har vi sat SaveChanges til True , som vil redde vores Arbejdsbog på lukning .

Nu skal vi udføre vores kode.

  • Først, Gem denne Modul .
  • For det andet skal du klikke inde i vores kode.
  • Til sidst skal du trykke på Kør knap.

Hvis vi går til vores Excel-applikation , vil vi se vores Arbejdsbog er lukket. Vi har således opnået gemt og lukket Arbejdsbog ved hjælp af Excel VBA .

Læs mere: Sådan gemmer du en makro til alle arbejdsbøger i Excel (med nemme trin)

2. Excel VBA til at gemme og lukke en bestemt projektmappe

Til den anden metode anvender vi redde og luk en bestemt Arbejdsbog ved hjælp af en anden VBA kode. Her har vi åbnet to Arbejdsbøger og vi vil redde og luk den første Arbejdsbog fra venstre side.

Trin:

  • Først, som vist i metode 1 , få frem den VBA-modul .
  • For det andet skal du skrive denne kode i den Modul . 
 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub

VBA-kode opdeling

  • For det første kalder vi vores Underprocedure Gem_og_sluk_specifik_arbejdsbog .
  • Så henviser vi til vores første Arbejdsbog inden for den Objektet arbejdsbøger .
  • Derefter kan du ved hjælp af Luk metode vi er lukning vores fil.
  • Endelig har vi sat SaveChanges til True , som vil redde vores Arbejdsbog på lukning .
  • For det tredje, som vist i metode 1 , udføre koden.

Herefter vil vi se, at den første Arbejdsbog er lukket og kun den anden Arbejdsbog er åben Derfor har vi vist dig endnu en metode til at besparelse og lukning a Arbejdsbog .

Læs mere: Excel VBA: Gem ark som ny projektmappe uden at åbne

3. Gem og luk en bestemt projektmappe i en bestemt mappe

Med den tredje metode skal vi redde og luk a specifik arbejdsbog i en mappe ved hjælp af Excel VBA .

Trin:

  • Først, som vist i metode 1 , få frem den VBA-modul .
  • For det andet skal du skrive denne kode i den Modul . 
 Sub Save_and_Close_Workbook_in_Specific_Folder() Workbooks("Macro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Workbooks("Macro Save and Close.xlsm").Close End Sub

VBA-kode opdeling

  • For det første kalder vi vores Underprocedure Gem_og_luk_arbejdsbog_i_specifik_mappe .
  • Derefter kan du ved hjælp af SaveAs metode vi er besparelse vores fil på et bestemt sted.
  • Derefter beholder vi filnavnet det samme som det oprindelige Arbejdsbog .
  • Endelig har vi luk vores Arbejdsbog .
  • For det tredje, som vist i metode 1 , udføre koden.

Herefter vil det redde vores Arbejdsbog i vores definerede mappeplacering og luk Vi har således vist dig en anden metode til at besparelse og arbejdsbog til afslutning i en specifik mappe ved hjælp af VBA .

Læs mere: Excel VBA-makro til at gemme PDF i en bestemt mappe (7 ideelle eksempler)

Lignende læsninger

  • Excel VBA: Gem arbejdsmappe uden en anmodning (med nemme trin)
  • [Rettet!] Hvorfor gemmer Excel ikke min formatering? (7 mulige årsager)
  • Sådan gemmer du Excel som PDF Landscape (med hurtige trin)
  • Excel VBA til at gemme som fil ved hjælp af sti fra celle (med hurtige trin)
  • [Rettet!] Excel CSV-fil gemmer ikke ændringer (6 mulige løsninger)

4. Indsættelse af knap til at gemme og lukke arbejdsmappe i Excel

I den fjerde metode skal vi oprette en VBA-knap for at lukke og gemme arbejdsmappen i Excel.

Trin:

  • Først, som vist i metode 1 , få frem den VBA-modul .
  • For det andet skal du skrive denne kode i den Modul . 
 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub

VBA-kode opdeling

  • For det første kalder vi vores Underprocedure Knap_klik_Save_og_lukke_arbejdsbog .
  • Derefter kan du ved hjælp af Gem metode vi er besparelse vores arbejdsbog
  • Endelig har vi luk vores Arbejdsbog ved hjælp af Afslut metode.

Nu vil vi indsætte den VBA knappen her.

  • For det første, fra den Udvikler faneblad>>>> Indsæt >>>> vælg Knap (formularkontrol) .

  • Derefter ændres musemarkøren og trækker en boks inden for Arbejdsbog .

Herefter vil den Dialogboksen Tildel makro vil blive vist.

  • Vælg derefter " Knap_klik_Save_og_lukke_arbejdsbog ".
  • Derefter skal du trykke på OK .

Derefter vil vi se Knap 1 i den Arbejdsbog .

  • Til sidst skal du klikke på knappen.

Dette vil redde og luk vores Arbejdsbog .

Læs mere: VBA-kode til knappen Gem i Excel (4 varianter)

5. Gem og luk alle åbne arbejdsbøger ved hjælp af Excel VBA

I denne sidste metode gemmer og lukker vi alle de åbnede Arbejdsbøger . Denne gang har vi de samme to Arbejdsbøger som i metode 3 , men denne gang vil vi dog redde og luk begge Arbejdsbøger Her vil vi bruge For Next Loop at gå gennem vores Arbejdsbøger .

Trin:

  • Først, som vist i metode 1 , få frem den VBA-modul .
  • For det andet skal du skrive denne kode i den Modul . 
 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If If If .Name ThisWorkbook.Name Then .Close End If End If End With Next z .Quit End With End Sub End Sub

VBA-kode opdeling

  • For det første kalder vi vores Underprocedure CloseAndSaveOpenWorkbooks .
  • Derefter bruger vi en For næste loop for at gennemgå alle Arbejdsbøger .
  • Derefter kan du ved hjælp af Gem metode vi er besparelse vores filer.
  • Derefter luk alle de Arbejdsbøger undtagen vores nuværende Arbejdsbog .
  • Endelig har vi lukket den oprindelige Arbejdsbog ved hjælp af Afslut ejendom.
  • For det tredje, som vist i metode 1 , udføre koden.

Derfor vil det redde og luk de to Arbejdsbøger . Vi kan se den dato ændret er den samme for de to Arbejdsbøger Afslutningsvis har vi vist, at 5 forskellige Excel VBA-makroer til redde og Luk arbejdsbog .

Læs mere: Hvordan man gemmer makro til personlig makroarbejdsbog?

Konklusion

Vi har vist dig 5 hurtig og let at forstå Excel VBA til redde og Luk arbejdsbog Hvis du har problemer, er du velkommen til at kommentere nedenfor. Desuden kan du besøge vores websted Exceldemy for mere Excel-relateret Tak for læsningen, og bliv ved med at udmærke dig!

Forrige indlæg Sådan fletter du to rækker i Excel (4 nemme måder)
Næste indlæg Sådan opdateres Excel-ark automatisk (3 egnede metoder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.