I den här artikeln kommer vi att visa dig 5 metoder för att använda Excel VBA till rädda och stänga arbetsboken Eftersom tid är mycket värdefull kan vi spara mycket tid genom att hoppa över vardagliga uppgifter med hjälp av Excel VBA . Dessutom har vi tagit ett dataset som består av följande 3 kolumner : " Namn ", " Född ", och " Senaste arbetet ". Denna datamängd representerar 6 personernas födelseår och deras senaste filminformation.

Ladda ner övningsboken

VBA för att spara och stänga arbetsbok.xlsm

5 exempel på att spara och stänga arbetsbok med VBA i Excel

1. Spara och stänga aktiv arbetsbok med Excel VBA

För den första metoden kommer vi att rädda och stäng Aktiv arbetsbok med hjälp av VBA-makro Vi kommer att ta upp den VBA-modul och skriv in vår kod och kör sedan koden för att uppnå vårt mål. Utan vidare fördröjning, låt oss hoppa in i steg för steg proceduren.

Steg:

Innan vi skriver vår kod måste vi ta fram VBA-modul För att göra det -

• För det första, från den Utvecklare flik>>>> välj Visual Basic .

Alternativt kan du trycka på ALT + F11 för att göra detta också. Microsoft Visual Basic för tillämpning " kommer att visas efter detta.

• För det andra, från Infoga >>>> välj Modul .

Här skriver vi vår kod.

• För det tredje skriver du följande kod i Modul .

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

Uppdelning av VBA-kod

• För det första kallar vi vår Underförfarande Spara_och_sluta_aktiv_arbetsbok .
• Då hänvisar vi till vår nuvarande Arbetsbok som ActiveWorkbook .
• Därefter kan du använda Stäng metod vi är stängning av vår fil.
• Slutligen har vi fastställt SaveChanges till True , som kommer att rädda våra Arbetsbok på stängning av .

Nu ska vi köra vår kod.

• Först, Spara denna Modul .
• För det andra klickar du i vår kod.
• Slutligen trycker du på Kör knapp.

Om vi går till vår Excel-applikation , kommer vi att se vår Arbetsbok är stängd. Vi har alltså lyckats räddade och stängd Arbetsbok med hjälp av Excel VBA .

Läs mer: Hur du sparar en makro för alla arbetsböcker i Excel (med enkla steg)

2. Excel VBA för att spara och stänga en specifik arbetsbok

För den andra metoden använder vi rädda och stäng en särskild Arbetsbok med hjälp av en annan VBA kod. Här har vi öppnat två Arbetsböcker och vi kommer att rädda och stäng den första Arbetsbok från vänster sida.

Steg:

• Först, enligt metod 1 , ta fram den VBA-modul .
• För det andra skriver du den här koden i den Modul .

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

Uppdelning av VBA-kod

• För det första kallar vi vår Underförfarande Spara_och_sluta_specifik_arbetsbok .
• Då hänvisar vi till vår första Arbetsbok i den inre delen av Objektet arbetsböcker .
• Därefter kan du använda Stäng metod vi är stängning av vår fil.
• Slutligen har vi fastställt SaveChanges till True , som kommer att rädda våra Arbetsbok på stängning av .

• För det tredje, enligt metod 1 , utför koden.

Därefter kommer vi att se att den första Arbetsbok är stängd och endast den andra Arbetsbok är öppna Därför har vi visat dig en annan metod för att spara och stängning av a Arbetsbok .

Läs mer: Excel VBA: Spara ark som ny arbetsbok utan att öppna den

3. Spara och stäng en specifik arbetsbok i en specifik mapp

För den tredje metoden kommer vi att rädda och stäng a specifik arbetsbok i en mapp med hjälp av Excel VBA .

Steg:

• Först, enligt metod 1 , ta fram den VBA-modul .
• För det andra skriver du den här koden i den Modul .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Arbetsböcker("Macro Save and Close.xlsm").SaveAs _ Filnamn:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Arbetsböcker("Macro Save and Close.xlsm").Close End Sub 

Uppdelning av VBA-kod

• För det första kallar vi vår Underförfarande Spara_och_sluta_arbetsbok_i_specifik_mapp .
• Därefter kan du använda SaveAs metod vi är spara vår fil på en viss plats.
• Därefter behåller vi filnamnet samma som det ursprungliga namnet. Arbetsbok .
• Slutligen stäng vår Arbetsbok .

• För det tredje, enligt metod 1 , utför koden.

Därefter kommer den att rädda vår Arbetsbok i vår definierade mapp och stäng Vi har alltså visat dig en annan metod för att spara och arbetsbok för avslutande i en en särskild mapp med hjälp av VBA .

Läs mer: Excel VBA-makro för att spara PDF-filer i en specifik mapp (7 idealiska exempel)

Liknande läsningar

• Excel VBA: Spara arbetsbok utan uppmaning (med enkla steg)
• [Rättad!] Varför sparar Excel inte min formatering? (7 möjliga orsaker)
• Hur man sparar Excel som PDF-landskap (med snabba steg)
• Excel VBA för att spara som fil med sökvägen från cellen (med snabba steg)
• [Rättad!] Excel CSV-fil som inte sparar ändringar (6 möjliga lösningar)

4. Infoga en knapp för att spara och stänga arbetsboken i Excel

För den fjärde metoden ska vi skapa en VBA-knapp för att stänga och spara arbetsboken i Excel.

Steg:

• Först, enligt metod 1 , ta fram den VBA-modul .
• För det andra skriver du den här koden i den Modul .

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

Uppdelning av VBA-kod

• För det första kallar vi vår Underförfarande Knapp_Click_Save_and_Close_Workbook .
• Därefter kan du använda Spara metod vi är spara vår arbetsbok
• Slutligen stäng vår Arbetsbok med hjälp av Sluta med metod.

Nu ska vi infoga VBA knappen här.

• För det första, från den Utvecklare flik>>>> Infoga >>>> välj Knapp (Kontroll av formulär) .

• Därefter ändras muspekaren och du drar en ruta inuti den Arbetsbok .

Efter detta kan Dialogrutan Tilldela makro kommer att visas.

• Välj sedan " Knapp_Click_Save_and_Close_Workbook ".
• Därefter trycker du på OK .

Därefter kommer vi att se Knapp 1 i den Arbetsbok .

• Klicka slutligen på knappen.

Detta kommer att rädda och stäng vår Arbetsbok .

Läs mer: VBA-kod för Save-knappen i Excel (4 varianter)

5. Spara och stäng alla öppna arbetsböcker med Excel VBA

I den här sista metoden ska vi spara och stänga alla öppnade Arbetsböcker Den här gången har vi samma två Arbetsböcker som i metoden 3 Men den här gången kommer vi att rädda och stäng båda Arbetsböcker Här kommer vi att använda För nästa slinga att gå igenom vår Arbetsböcker .

Steg:

• Först, enligt metod 1 , ta fram den VBA-modul .
• För det andra skriver du den här koden 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 .Name ThisWorkbook.Name Then .Close End If End If End With Next z .Quit End With End Sub 

Uppdelning av VBA-kod

• För det första kallar vi vår Underförfarande CloseAndSaveOpenWorkbooks .
• Då använder vi en För nästa slinga för att gå igenom alla Arbetsböcker .
• Därefter kan du använda Spara metod vi är spara våra filer.
• Därefter stäng alla Arbetsböcker utom vår nuvarande Arbetsbok .
• Slutligen har vi stängd originalet Arbetsbok med hjälp av Sluta med egendom.

• För det tredje, enligt metod 1 , utför koden.

Därför kommer den att rädda och stäng de två Arbetsböcker . Vi kan se den datum för ändring är densamma för de två Arbetsböcker Sammanfattningsvis har vi visat att 5 olika Excel VBA-makros till rädda och stänga arbetsboken .

Läs mer: Hur sparar du makronoteringar i en personlig arbetsbok för makronoteringar?

Slutsats

Vi har visat dig 5 snabb och lätt att förstå Excel VBA till rädda och stänga arbetsboken Om du stöter på några problem kan du gärna kommentera nedan. Du kan också besöka vår webbplats Excellent för mer Excel-relaterad Tack för att du läste, fortsätt att vara bra!