Uložit jako - SaveAs Metoda - Excel VBA

Úvodem

Seznam kapitol v tomto článku:

• Co umí metoda SaveAs
• Syntaxe metody SaveAs
• Typy souboru
• Jednoduchý příklad
• Komplexnější příklady
• Doplňující kódy
• Ukládání pod jinými názvy csv, txt, pdf
• Problémy s ukládáním
• Uložit jako samostatný list (listy)
• Podobné příkazy se SaveAs - soubor uloží jako kopií. A další možnosti.
• Ke stažení - praktické ukázky ke stažení a zdarma ;)

Co umí metoda SaveAs

Potřebujete-li pomocí VBA uložit soubor. Odpovídá klasickému Uložit jako

Syntaxe metody SaveAs

Syntax 1 pro sheet (List)

Worksheet.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodePage, TextVisualLayout, Local)

Syntax 2 pro workbook (Sešit)

Workbook.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisualLayout, Local)

Popis parametru

• Filename - Povinné - String (Worksheet), Volitlné - Variant (Workbook) - není-li zadána kompletní cesta uloží se do aktuální složky (adresáře)
• FileFormat - Volitlné - Variant - typ ukládaného souboru, viz níže, kde jsou typy vypasány - tj. XlFileFormat
• Password - Volitlné - Variant - Heslo (max. 15 znaků)
• WriteResPassword - Volitlné - Variant - Heslo pro zápis.
• ReadOnlyRecommended - Volitlné - Variant - pro ReadOnly soubor
• CreateBackup - Volitlné - Variant - Pokud se má vytvářet záloha = TRUE
• AccessMode - Volitlné - Variant -
• ConflictResolution - Volitlné - Variant -
• AddToMru - Volitlné - Variant -
• TextCodePage - Volitlné - Variant - není použito v U.S. English Excel
• TextVisualLayout - Volitlné - Variant - není použito v U.S. English Excel
• Local - Volitlné - Variant - TRUE - Excel respektuje národní nastavení v ControlPanelu (centrum nastavení) - více ukážu v příkladech, kde je to názornější.

Typy souboru - FileFormat

Typy souboru (tj. tabulka XlFileFormat) spolu s jejich kódem:

• 51 - xlOpenXMLWorkbook - bez makra xlsx
• 52 - xlOpenXMLWorkbookMacroEnabled - s makrem xlsm
• 50 - xlExcel12 -binární xlsb
• 56 - xlExcel8 - xls (verze 97 - 2003)

Další důležité csv, txt, pdf ...

• -4158 - txt
• 6 - csv
• 36 - prn
• -

A další kompletní seznam je na samostatný článek

Jednoduchý příklad

Začneme úplně jednoduchým příkladem

ActiveWorkbook.SaveAs "C:\MujSoubor.xlsm"

Obdržíte dialogové okno, že soubor již je uložen pod stejným názvem (pokud jste jej již jednou ukládali). Nebo informaci, že nelze uložit, protože sešit obsahuje makra (zatím jste neukládali) a je přednastaven název, který novému sešitu dal Excel (Sešit 1.xlsx).

ActiveWorkbook.SaveAs "C:\MujSoubor.xlsm"

Soubor uložíme pod názvem MujSoubor.xlsm.

Komplexnější příklady

Uložit s heslem

ActiveWorkbook.SaveAs Filename:="D:\test\test.xlsm", Password:= "AAA"

Uložený vybraných listů

Sheets("List1").Select ActiveSheet.Copy ActiveWorkbook.SaveCopyAs Filename:="D:\revize\Pouze-list.xlsx" ActiveWorkbook.Close (False)

Uložit s datem

Do názvu se vloží aktuální datum a čas

ActiveWorkbook.SaveAs Filename:="D:\test\Report" & Format(Now, "yyyymmdd") & ".xlsm"

Uložit s datem + jméno buňce

Uložit s datem a jméno si zvolit zadáním hodnoty do buňky A1 a do buňky A2.

FJmeno = Sheets("List1").Range("A1").Text FDoklad = Sheets("List1").Range("A2").Text JmenosDatumem = FJmeno & FDoklad & Format(Now, "yyyymmdd")

Lepší úprava ukládaného souboru.

JmenosDatumem = FJmeno & "-" & FDoklad & "_" &Format(Now, "yyyymmdd") & ".xlsm", FileFormat:=52

Doplňující kódy

Zjištění vhodného formátu

Zjištění zda sešit obsahuje makra.

If .HasVBProject Then VYsledek = ".xlsm" Else Vysledek = ".xlsx" End If

Dialogové okna

Vypnutí zobrazování systémových hlášek.

With Application .ScreenUpdating = False .EnableEvents = False End With

Opětovné zapnutí zobrazování systémových hlášek, jinak neodhalíte případné chyby (nezobrazí se) v jiných častech programu.

With Application .ScreenUpdating = True .EnableEvents = True End With

Ukládání pod jinými názvy - csv, txt, pdf

Jak uložit pod do csv, txt, pdf bude předmětem jiných článků. Jak uložit do excelovský sešit do *.pdf jsem sepsal v článku Tisk do *.pdf - Excel VBA makro.

Problémy s ukládáním

Problémy s ukládáním. Ukládáte pod názvem souboru, který je již otevřen a nelze do něj zapisovat, složka je nepřístupné, list obsahuje makra, která se nedají uložit do *.xlsx, potřebujete uložit do starší verze a máte formátování, která starší verze nepodporuje atd.

Podobné příkazy se SaveAs

Další možnost jek ukládat je vytvořit kopií pomocí SaveCopyAs - pokud bude v komentářích zájem, pokusím se rozšířit i o tuto kapitolu.

Uložit kopii jako

ActiveWorkbook.SaveCopyAs "C:\MujSoubor.xlsm"

Uzavření sešitu

ActiveWorkbook.Close (FALSE)

nebo

ActiveWorkbook.Close SaveChanges:=True

nebo

Activeworkbook.Saved=True

Uložit tento sešit

ThisWorkbook.Save

Uložit kopií sešitu

Uložit kopií sešitu pos zvoleným nazvem i s datem.

FCesta = "C:\dokument" FJmeno = Sheets("List1").Range("A1").Text FCislo = Sheets("List1").Range("A2").Text JmenosDatumem = FJmeno & FCislo & Format(Now, "dd.mm.yyyy") ThisWorkbook.SaveCopyAs Filename:=FCesta & "\" & JmenosDatumem & ".xlsx" End Sub

Poznámka: Jedná se o jinou metodu takže nesmí obsahovat "FileFormat:=51".

Uložit jako samostatný list (listy)

Jak uložit jen jeden list, například Akvivní.

ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:="C:\MyFolder\MySubFolder\Test.xls" ActiveWorkbook.Close

Tip nedotazovat se na ukládání:

Application.displayAlerts = False

Samostatné listy

Pokud potřebuji vyextrahovat samostatné listy (třeba jména lidi a jejich výsledky, které jsou na samostatných listech).

Dim sh As Worksheet For Each sh In Worksheets sh.Copy ' at se neptá na potvrzení uložení Application.DisplayAlerts = False ' jména jednotlivých sešitu podle názvu listů ' Tip: Lze mít podmínku, pokud se jméno listu začíná: xy* ActiveWorkbook.SaveAs Filename:="D:\smaz\" & sh.Name & ".xlsx" Application.DisplayAlerts = True 'budu-li chtit ulozit i tento sešit ActiveWorkbook.Close Savechanges:=False Next

Ke stažení

Soubor jak v VBA ukládat pomocí SaveAs (SaveCopyAs) ke stažení zdarma. Soubor využívá makra.

V případě potřeby postupně doplním o další VBA kódy.

Závěrem

Pro případné doplnění článku jsou komentáře.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře