VBA Uložit jako | Jak používat metodu Uložit jako ve VBA Excel?

Excel VBA Uložit jako

Metoda VBA Uložit jako se používá k uložení souboru aplikace Excel do konkrétního umístění. K uložení sešitu pomocí kódu VBA použijeme objekt Sešit s funkcí SaveAs.

Po celé tvrdé práci, kterou jsme v sešitu odvedli, jsme jej uložili, že? Je bolestivé ztratit data, na kterých jsme pracovali. Máme dva druhy uložení v aplikaci Excel nebo v jakémkoli souboru, jeden je „Uložit“ a další je „Uložit jako“. Ctrl + S je populární klávesová zkratka jako Ctrl + C a Ctrl + V po celém světě. Ale není to tak známý koncept „Uložit jako“ . V běžné klávesové zkratce listu pro uložení souboru je klávesa F12 . I ve VBA můžeme soubor uložit jako Uložit jako “.

Co dělá funkce VBA Uložit jako?

Jedná se o obecný úkol ukládání práce v automatizačním procesu. Po skončení všech prací si přejeme soubor uložit.

Sešity („Prodej 2019.xlsx“). Uložit

Tento kód pro uložení přečetl sešit nazvaný „Prodej 2019.xlsx“.

Podobně k replikaci sešitu, na kterém pracujeme, lze vytvořit pomocí metody „Uložit jako“.

  • Název souboru: Jaký je název souboru, který chcete dát. To by mělo být kombinováno s cestou ke složce souboru.
  • Formát souboru: Jaký by měl být formát souboru, který ukládáte.
  • Heslo: Chcete zadat heslo pro ukládaný soubor.
  • Write Res Password: Uveďte vyhrazené heslo pro sešit.

Myslím, že tyto parametry jsou dostatečné k pochopení metody Uložit jako.

Jak používat funkci Uložit jako?

Tuto šablonu VBA Uložit jako Excel si můžete stáhnout zde - VBA Uložit jako Excel šablonu

Příklad č. 1

Ukládáme sešit správně, takže je důležité zmínit název sešitu a jeho rozšíření, aby bylo možné použít metodu Uložit jako. Takže uveďte sešit, který ukládáte.

Kód:

Dílčí sešity SaveAs_Example1 () ("Prodej 2019.xlsx"). End Sub

Nyní použijte metodu Uložit jako.

Kód:

 Sub SaveAs_Example1 () sešity ("Prodej 2019.xlsx"). SaveAs End Sub 

Nyní určete, kam chcete uložit.

Kód:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ articles \ 2019 End Sub 

Nyní vložte zpětné lomítko a zadejte název souboru podle vašeho přání s příponou souboru.

Kód:

 Sub SaveAs_Example1 () sešity ("Prodej 2019.xlsx"). SaveAs "D: \ Články \ 2019 \ Můj File.xlsx" Konec Sub 

Nyní uveďte formát souboru jako „xlWorkbok“.

Kód:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub 

Dobře, jsme hotovi, soubor se uloží na jednotku D> Název složky (Články)> Název podsložky (2019).

Příklad č. 2

Uložte všechny otevřené sešity

Předpokládejme, že pracujete s 10 sešity v počítači. Chcete vytvořit zálohu těchto sešitů jejich uložením v počítači jako jednu z kopií. Pokud chcete pracovat s více než jedním sešitem, je nutné použít smyčky.

Níže uvedený kód vám pomůže uložit všechny sešity jako kopii.

Kód:

 Sub SaveAs_Example2 () Dim Wb jako sešit pro každou Wb v sešitech ActiveWorkbook.SaveAs "D: \ Article \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Změnit cestu k souboru Další Wb End Sub

Chcete-li vybrat vlastní cestu ke složce, můžete použít tento kód.

Kód:

 Sub SaveAs_Example3 () Dim FilePath jako String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Název souboru: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Jakmile tento kód spustíte pomocí klávesy F5 nebo ručně, vyzve vás k výběru cesty cílové složky, výběru a klepnutí na OK, soubor se uloží.