V tomto článku vám ukážeme 5 způsoby použití Excel VBA na uložit a zavřít Sešit Protože čas je velmi cenný, můžeme ho ušetřit tím, že přeskočíme všední úkoly pomocí. Excel VBA . Kromě toho jsme vzali soubor dat, který se skládá z 3 sloupce : " Název ", " Narozen " a " Nejnovější práce ". Tento soubor dat představuje 6 rok narození a nejnovější informace o filmu.

Stáhnout cvičebnici

VBA pro uložení a zavření sešitu.xlsm

5 příkladů uložení a zavření sešitu pomocí VBA v aplikaci Excel

1. Uložení a zavření aktivního sešitu pomocí aplikace Excel VBA

Pro první metodu použijeme uložit a zavřít na Aktivní sešit pomocí Makro VBA ... přineseme nahoru Modul VBA okno, zadejte náš kód a poté jej spusťte, abyste dosáhli našeho cíle. Bez dalších řečí se vrhněme na postup po jednotlivých krocích.

Kroky:

Před zadáním našeho kódu musíme vyvolat příkaz Modul VBA . K tomu -

• Za prvé, z Vývojář karta>>> vybrat Visual Basic .

Případně můžete stisknout ALT + F11 k tomu také. " Microsoft Visual Basic pro aplikaci " se zobrazí po tomto příkazu.

• Za druhé, z Vložte >>> vybrat Modul .

Zde zadáme náš kód.

• Za třetí, zadejte následující kód uvnitř Modul .

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

Rozdělení kódu VBA

• Za prvé, voláme naše Dílčí postup Uložit_a_uzavřít_aktivní_sešit .
• Pak se odkazujeme na náš současný Pracovní sešit jako ActiveWorkbook .
• Poté pomocí Zavřít metoda, kterou jsme uzavření náš soubor.
• Nakonec jsme nastavili SaveChanges na Pravda , která zachrání naše Pracovní sešit na adrese uzavření .

Nyní spustíme náš kód.

• Za prvé, Uložit tento Modul .
• Zadruhé klikněte na náš kód.
• Nakonec stiskněte tlačítko Spustit tlačítko.

Pokud půjdeme do našeho Aplikace Excel , uvidíme naše Pracovní sešit je uzavřená. Úspěšně jsme tedy uloženo a uzavřeno na Pracovní sešit pomocí Excel VBA .

Přečtěte si více: Jak uložit makro pro všechny sešity v aplikaci Excel (ve snadných krocích)

2. Uložení a zavření konkrétního sešitu pomocí aplikace Excel VBA

Pro druhou metodu použijeme uložit a zavřít konkrétní Pracovní sešit pomocí jiného VBA kód. Zde jsme otevřeli dva Pracovní sešity a my uložit a zavřít první Pracovní sešit z levé strany.

Kroky:

• Za prvé, jak je uvedeno v metodě 1 , vyvolat Modul VBA .
• Za druhé zadejte tento kód uvnitř Modul .

 Sub Save_and_Close_Specific_Workbook() Sešity("Makro Save and Close.xlsm").Close SaveChanges:=True End Sub 

Rozdělení kódu VBA

• Za prvé, voláme naše Dílčí postup Uložit_a_uzavřít_konkrétní_sešit .
• Pak se odkazujeme na náš první Pracovní sešit uvnitř Objekt Sešity .
• Poté pomocí Zavřít metoda, kterou jsme uzavření náš soubor.
• Nakonec jsme nastavili SaveChanges na Pravda , která zachrání naše Pracovní sešit na adrese uzavření .

• Za třetí, jak je uvedeno v metodě 1 , proveďte kód.

Poté uvidíme, že první Pracovní sešit je uzavřeno a pouze druhý Pracovní sešit je otevřít . Proto jsme vám ukázali další metodu, jak se dá ukládání a uzavření a Pracovní sešit .

Přečtěte si více: Excel VBA: Uložit list jako nový sešit bez otevření

3. Uložení a zavření konkrétního sešitu v konkrétní složce

Třetí metodou je uložit a zavřít a konkrétní pracovní sešit v a složka pomocí Excel VBA .

Kroky:

• Za prvé, jak je uvedeno v metodě 1 , vyvolat Modul VBA .
• Za druhé zadejte tento kód uvnitř Modul .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Sešity("Makro Save and Close.xlsm").SaveAs _ Název souboru:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Sešity("Makro Save and Close.xlsm").Close End Sub 

Rozdělení kódu VBA

• Za prvé, voláme naše Dílčí postup Uložit_a_uzavřít_sešit_v_konkrétní_složce .
• Poté pomocí SaveAs metoda, kterou jsme ukládání náš soubor v určitém umístění.
• Pak ponecháme název souboru stejný jako původní. Pracovní sešit .
• Nakonec jsme zavřít naše Pracovní sešit .

• Za třetí, jak je uvedeno v metodě 1 , proveďte kód.

Poté se uložit naše Pracovní sešit uvnitř našeho definovaného umístění složky a zavřít Tak jsme vám ukázali jinou metodu. ukládání a zavírací sešit v a konkrétní složka pomocí VBA .

Přečtěte si více: Makro Excel VBA pro uložení PDF do určité složky (7 ideálních příkladů)

Podobná čtení

• Excel VBA: Uložení sešitu bez výzvy (ve snadných krocích)
• [Opraveno!] Proč Excel neukládá formátování? (7 možných důvodů)
• Jak uložit Excel jako PDF krajinu (v rychlých krocích)
• Excel VBA pro uložení jako soubor pomocí cesty z buňky (s rychlými kroky)
• [Opraveno!] Soubor CSV aplikace Excel neukládá změny (6 možných řešení)

4. Vložení tlačítka pro uložení a zavření sešitu v aplikaci Excel

Pro čtvrtou metodu vytvoříme metodu Tlačítko VBA zavřít a uložit sešit v aplikaci Excel.

Kroky:

• Za prvé, jak je uvedeno v metodě 1 , vyvolat Modul VBA .
• Za druhé zadejte tento kód uvnitř Modul .

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

Rozdělení kódu VBA

• Za prvé, voláme naše Dílčí postup Tlačítko_Click_Save_and_Close_Workbook .
• Poté pomocí Uložit metoda, kterou jsme ukládání náš pracovní sešit
• Nakonec jsme zavřít naše Pracovní sešit pomocí Ukončit metoda.

Nyní vložíme VBA zde.

• Za prvé, z Vývojář karta>>> Vložte >>> vybrat Tlačítko (Kontrola formuláře) .

• Poté se kurzor myši změní a přetáhne rámeček uvnitř Pracovní sešit .

Poté se Dialogové okno Přiřadit makro se objeví.

• Poté vyberte možnost " Tlačítko_Click_Save_and_Close_Workbook ".
• Poté stiskněte tlačítko OK .

Pak uvidíme Tlačítko 1 v Pracovní sešit .

• Nakonec klikněte na tlačítko .

Tím se uložit a zavřít naše Pracovní sešit .

Přečtěte si více: Kód VBA pro tlačítko Uložit v aplikaci Excel (4 varianty)

5. Uložení a zavření všech otevřených sešitů pomocí aplikace Excel VBA

V této poslední metodě uložíme a zavřeme všechny otevřené soubory. Pracovní sešity Tentokrát máme stejné dva Pracovní sešity jako v metodě 3 , nicméně tentokrát budeme uložit a zavřít oba Pracovní sešity . Zde použijeme smyčka For Next projít naší Pracovní sešity .

Kroky:

• Za prvé, jak je uvedeno v metodě 1 , vyvolat Modul VBA .
• Za druhé zadejte tento kód uvnitř 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 With Next z .Quit End With End Sub 

Rozdělení kódu VBA

• Za prvé, voláme naše Dílčí postup CloseAndSaveOpenWorkbooks .
• Pak používáme Pro další smyčku projít všechny Pracovní sešity .
• Poté pomocí Uložit metoda, kterou jsme ukládání naše soubory.
• Pak jsme zavřít všechny Pracovní sešity kromě našeho současného Pracovní sešit .
• Nakonec máme uzavřeno originál Pracovní sešit pomocí Ukončit nemovitosti.

• Za třetí, jak je uvedeno v metodě 1 , proveďte kód.

Proto bude uložit a zavřít dva Pracovní sešity . Vidíme, že datum změny je stejná pro obě Pracovní sešity Na závěr jsme ukázali. 5 různé Makra Excel VBA na uložit a zavřít Sešit .

Přečtěte si více: Jak uložit makro do osobního sešitu maker?

Závěr

Ukázali jsme vám 5 rychlé a snadné pochopení Excel VBA na uložit a zavřít Sešit . Pokud se setkáte s nějakými problémy, neváhejte se vyjádřit níže. Kromě toho můžete navštívit naše stránky Exceldemy pro více související s aplikací Excel články. Děkujeme za přečtení, pokračujte v excelování!