In dit artikel tonen wij u 5 methoden voor het gebruik van Excel VBA naar red en werkboek sluiten Omdat tijd zeer kostbaar is, kunnen we veel tijd besparen door alledaagse taken over te slaan met behulp van Excel VBA Bovendien hebben we een dataset genomen bestaande uit 3 kolommen : " Naam ", " Geboren ", en " Laatste Werk "Deze dataset vertegenwoordigt 6 het geboortejaar van mensen en hun laatste filmgegevens.

Download Praktijk Werkboek

VBA voor opslaan en sluiten van werkmap.xlsm

5 Voorbeelden van opslaan en sluiten van werkmap met VBA in Excel

1. Actieve werkmap opslaan en sluiten met Excel VBA

Voor de eerste methode zullen we red en Sluit de Actief werkboek met behulp van VBA-macro We zullen de VBA-module venster, typ onze code in en voer de code uit om ons doel te bereiken. Laten we zonder verder oponthoud in de stap voor stap procedure springen.

Stappen:

Voordat we onze code typen, moeten we de VBA-module Om dat te doen...

• Ten eerste, van de Ontwikkelaar tab>>> selecteer Visual Basic .

U kunt ook op ALT + F11 om dit ook te doen. De " Microsoft Visual Basic voor toepassing " zal hierna verschijnen.

• Ten tweede, van Plaats >>> selecteer Module .

Hier zullen we onze code typen.

• Ten derde, typ de volgende code in de Module .

 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub 

VBA-code opsplitsing

• Ten eerste roepen we onze Subprocedure Opslaan_en_sluiten_actief_werkboek .
• Dan verwijzen we naar onze huidige Werkboek als ActiveWorkbook .
• Daarna, met behulp van de Sluit methode zijn we sluiting ons dossier.
• Tot slot hebben we SaveChanges naar Echt die onze Werkboek op sluiting .

Nu gaan we onze code uitvoeren.

• Eerst, Sla deze Module .
• Ten tweede, klik in onze code.
• Druk ten slotte op de Ren knop.

Als we naar onze Excel Toepassing zullen we onze Werkboek is gesloten. We hebben dus met succes opgeslagen en gesloten de Werkboek met behulp van Excel VBA .

Lees meer: Hoe een macro opslaan voor alle werkmappen in Excel (met eenvoudige stappen)

2. Excel VBA om specifieke werkmap op te slaan en te sluiten

Voor de tweede methode gebruiken we red en Sluit een specifieke Werkboek met behulp van een andere VBA code. Hier hebben we twee Werkboeken en we zullen red en Sluit de eerste Werkboek vanaf de linkerkant.

Stappen:

• Eerst, zoals weergegeven in methode 1 breng de VBA-module .
• Ten tweede, typ deze code daarbinnen Module .

 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub 

VBA-code opsplitsing

• Ten eerste roepen we onze Subprocedure Opslaan_en_sluiten_specifiek_werkboek .
• Dan verwijzen we naar onze eerste Werkboek binnen de Werkmappen object .
• Daarna, met behulp van de Sluit methode zijn we sluiting ons dossier.
• Tot slot hebben we SaveChanges naar Echt die onze Werkboek op sluiting .

• Ten derde, zoals weergegeven in methode 1 voer de code uit.

Hierna zullen we zien dat de eerste Werkboek is gesloten en alleen de tweede Werkboek is open Daarom hebben we u nog een andere methode getoond om... besparing en sluiting a Werkboek .

Lees meer: Excel VBA: Blad opslaan als nieuwe werkmap zonder te openen

3. Specifieke werkmap opslaan en sluiten in specifieke map

Voor de derde methode gaan we red en Sluit a specifiek werkboek in een map met behulp van Excel VBA .

Stappen:

• Eerst, zoals weergegeven in methode 1 breng de VBA-module .
• Ten tweede, typ deze code daarbinnen Module .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Werkmappen("Macro Save and Close.xlsm").SaveAs _ Bestandsnaam:="C:\UsersRafi\OneDriveDesktop\ExceldemyMacro Save and Close.xlsm" Werkmappen("Macro Save and Close.xlsm").Close End Sub 

VBA-code opsplitsing

• Ten eerste roepen we onze Subprocedure Opslaan_en_sluiten_werkboek_in_specifieke_map .
• Daarna, met behulp van de SaveAs methode zijn we besparing ons bestand op een specifieke plaats.
• Dan houden we de bestandsnaam hetzelfde als de oorspronkelijke Werkboek .
• Tot slot Sluit onze Werkboek .

• Ten derde, zoals weergegeven in methode 1 voer de code uit.

Hierna zal het red onze Werkboek in onze gedefinieerde maplocatie en Sluit het. Dus, we hebben u een andere methode getoond van besparing en afsluitend werkboek in een specifieke map met behulp van VBA .

Lees meer: Excel VBA Macro om PDF in specifieke map op te slaan (7 ideale voorbeelden)

Vergelijkbare lezingen

• Excel VBA: Werkboek opslaan zonder prompt (met gemakkelijke stappen)
• [Waarom slaat Excel mijn opmaak niet op? (7 mogelijke redenen)
• Hoe Excel opslaan als PDF-landschap (met snelle stappen)
• Excel VBA op te slaan als bestand met behulp van pad van cel (met snelle stappen)
• [Fixed!] Excel CSV bestand slaat wijzigingen niet op (6 mogelijke oplossingen)

4. Knop invoegen om werkmap op te slaan en te sluiten in Excel

Voor de vierde methode gaan we een VBA knop om de werkmap in Excel te sluiten en op te slaan.

Stappen:

• Eerst, zoals weergegeven in methode 1 breng de VBA-module .
• Ten tweede, typ deze code daarbinnen Module .

 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Toepassing.Quit End Sub 

VBA-code opsplitsing

• Ten eerste roepen we onze Subprocedure Button_Click_Save_and_Close_Workbook .
• Daarna, met behulp van de Sla methode zijn we besparing ons werkboek
• Tot slot Sluit onze Werkboek met behulp van de Stop methode.

Nu voegen we de VBA knop hier.

• Ten eerste, van de Ontwikkelaar tab>>> Plaats >>> selecteer Knop (Formulier Controle) .

• Dan zal de muiscursor veranderen en een doos binnen de Werkboek .

Daarna wordt de Dialoogvenster Macro toewijzen zal verschijnen.

• Selecteer vervolgens " Button_Click_Save_and_Close_Workbook ".
• Druk daarna op OK .

Dan zullen we zien Knop 1 in de Werkboek .

• Klik tenslotte op de knop.

Dit zal red en Sluit onze Werkboek .

Lees meer: VBA-code voor knop opslaan in Excel (4 varianten)

5. Alle geopende werkmappen opslaan en sluiten met Excel VBA

In deze laatste methode gaan we alle geopende Werkboeken Deze keer hebben we dezelfde twee Werkboeken als in methode 3 maar deze keer zullen we red en Sluit beide Werkboeken Hier gebruiken we de For Next Loop om door onze Werkboeken .

Stappen:

• Eerst, zoals weergegeven in methode 1 breng de VBA-module .
• Ten tweede, typ deze code daarbinnen Module .

 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If .Name ThisWorkbook.Name Then .Close End If End With Next z .Quit End With End Sub 

VBA-code opsplitsing

• Ten eerste roepen we onze Subprocedure CloseAndSaveOpenWorkbooks .
• Dan gebruiken we een Voor de volgende lus om door alle Werkboeken .
• Daarna, met behulp van de Sla methode zijn we besparing onze dossiers.
• Dan, we Sluit alle Werkboeken behalve onze huidige Werkboek .
• Tenslotte hebben we gesloten het origineel Werkboek met behulp van de Stop eigendom.

• Ten derde, zoals weergegeven in methode 1 voer de code uit.

Daarom zal het red en Sluit de twee Werkboeken We kunnen de gewijzigde datum is hetzelfde voor de twee Werkboeken Tot slot hebben wij aangetoond 5 verschillende Excel VBA macro's naar red en werkboek sluiten .

Lees meer: Hoe Macro opslaan in Persoonlijke Macro Werkmap?

Conclusie

We hebben je laten zien 5 snel en gemakkelijk te begrijpen Excel VBA naar red en werkboek sluiten Als u problemen ondervindt, voel u vrij om hieronder commentaar te geven. Bovendien kunt u onze site bezoeken Exceldemy voor meer Excel-gerelateerd artikelen. Bedankt voor het lezen, blijf uitblinken!