Přejít na hlavní obsah

Jak používat funkci Application.SaveAs v Excelu VBA pro ukládání souborů

Programovací jazyk VBA (Visual Basic for Applications) často používá funkci Application pro práci s programem Microsoft Excel.SaveAs. Tato funkce vám umožňuje uložit aktivní sešit aplikace Excel pod novým názvem nebo v jiném formátu. Takové uložení může být užitečné, když je nutné vytvořit kopii souboru nebo jej uložit v jiném formátu pro další použití.

Funkce Aplikace.SaveAs se používá spolu s objektem aplikace, což je instance aplikace Excel. Má několik možností, jako je FileName (název souboru), FileFormat (Formát souboru) a Password (Heslo pro soubor), které lze nastavit v příslušných argumentech funkce.

Aplikace funkce Application.SaveAs v Excelu VBA je docela jednoduchý. Nejprve musíte získat instanci aplikace Excel pomocí příkazu Application. Poté můžete v této instanci použít funkci SaveAs k uložení aktuálního souboru. Následující kód například uloží aktuální sešit aplikace Excel pod názvem " Nový soubor.xlsx":

VBA

Application.SaveAs FileName:= " nový soubor.xlsx"

Kromě toho můžete zadat formát souboru, který chcete uložit. Chcete-li například uložit soubor jako CSV (oddělený čárkami), můžete zadat hodnotu parametru FileFormat jako xlcsv. Zde je příklad kódu, který uloží aktuální sešit aplikace Excel ve formátu CSV:

VBA

Application.SaveAs FileName:= " nový soubor.csv", FileFormat:=xlCSV

Funkce Aplikace.SaveAs v Excelu VBA umožňuje nejen vytvořit kopii souboru nebo jej uložit v jiném formátu, ale také poskytuje další funkce, jako je ochrana heslem a indikace cesty uložení. Pomocí této funkce je možné zjednodušit proces ukládání souborů v Excelu a automatizovat je ve svých makrech a aplikacích VBA.

Jak ukládat soubory pomocí funkce Application.SaveAs v Excelu VBA?

Funkce Aplikace.SaveAs v aplikaci Excel umožňuje VBA ukládat soubory softwarovým způsobem. To je zvláště užitečné, když je nutné automatizovat proces ukládání souborů pomocí určitých možností.

Chcete-li použít funkci Application.SaveAs, je třeba dodržovat několik kroků:

  1. Definovat objekt Workbook - je to soubor Excel, který je třeba uložit. Tento objekt je obvykle definován proměnnou. Například:
Dim wb As WorkbookSet wb = ActiveWorkbook
  1. Použít funkci SaveAs pro uložení souboru. Například:
wb.SaveAs "C:\МойФайл.xlsx"

Ve výše uvedeném příkladu bude soubor uložen s názvem "Můj soubor" ve formátu Excel (.xlsx) na uvedené cestě "С:\МойФайл..xlsx".

Můžete také zadat další možnosti ve funkci SaveAs:

  • FileFormat - Formát souboru, který chcete uložit. Například:
wb.SaveAs "C:\МойФайл.pdf", FileFormat:=xlTypePDF

V tomto příkladu bude soubor uložen ve formátu PDF s názvem "Můj soubor" po uvedené cestě "С:\МойФайл..pdf". Parametr FileFormat: = xlTypePDF určuje, že soubor musí být uložen ve formátu PDF.

  • Password - heslo pro ochranu souboru. Například:
wb.SaveAs "C:\МойФайл.xlsx", Password:="Пароль"

V tomto příkladu bude soubor uložen s názvem "Můj soubor" ve formátu Excel (.xlsx) se zadaným heslem "heslo".

Různé formáty souborů a hodnoty parametrů FileFormat, Password a dalších najdete v dokumentaci Microsoft Excel VBA.

Použití funkce Application.SaveAs v Excelu VBA umožňuje efektivní ukládání souborů pomocí automatizace. To je zvláště užitečné, když je nutné pravidelně ukládat velké množství souborů s danými možnostmi, což může výrazně urychlit a usnadnit pracovní postup.

Příklad použití funkce Application.SaveAs

Funkce Aplikace.SaveAs v aplikaci VBA pro Excel umožňuje uložit soubor se zadaným názvem A formátem. Může být velmi užitečný, pokud chcete automatizovat proces ukládání souborů v Excelu.

Zde je příklad použití funkce Application.SaveAs:

Sub SaveFile()Dim fileName As StringDim filePath As String' Запрос имени файлаfileName = InputBox("Введите имя файла:")' Проверка, если пользователь не ввел имя файлаIf fileName = "" ThenExit SubEnd If' Запрос пути сохранения файлаfilePath = Application.GetSaveAsFilename(fileName)' Проверка, если пользователь не выбрал путь сохраненияIf filePath = "False" ThenExit SubEnd If' Сохранение файлаActiveWorkbook.SaveAs Filename:=filePathEnd Sub

V tomto příkladu je funkce Application.SaveAs se používá k uložení aktivní pracovní knihy se zadaným názvem a uložením. Nejprve je uživatel vyzván k zadání názvu souboru a poté k výběru cesty uložení. Pokud uživatel zadá název souboru nebo nevybere cestu uložení, proces ukládání se přeruší.

Všimněte si, že před názvem souboru byste měli zadat úplnou cestu, včetně přípony souboru (například " C:\ Cesta\soubor\název souboru.xlsx").

Pozor: příklady kódu mohou obsahovat překlepy a před použitím ve vaší aplikaci vyžadují kontrolu a opravu chyb.

Nastavení funkce aplikace.SaveAs

Funkce Aplikace.SaveAs v Excelu VBA umožňuje uložit aktivní sešit s určitými možnostmi. Zde jsou některé z nejužitečnějších parametrů, které lze této funkci předat:

Filename: toto je povinná možnost, která určuje cestu a název souboru, do kterého chcete knihu uložit. Například "С:\Мои dokumenty-můj soubor.xlsx".

FileFormat: toto je volitelná možnost, která určuje formát souboru, do kterého má být Kniha uložena. Například xlopenxmlworkbook pro formát .XLSX nebo xlCSV pro formát CSV. Pokud tato možnost není zadána, Excel vybere Formát souboru automaticky.

Password: toto je volitelná možnost, která Vám umožňuje nastavit heslo pro ochranu souboru. Například "mypassword". Pokud tato možnost není zadána, soubor bude uložen bez hesla.

WriteResPassword: toto je volitelná možnost, která Vám umožňuje nastavit heslo pro záznam pro ochranu souboru. Například "mywriterespassword". Pokud tato možnost není zadána, soubor bude uložen bez hesla k záznamu.

ReadOnlyRecommended: toto je volitelná možnost typu Boolean, která určuje, zda má být uživateli poskytnuta možnost otevřít soubor v režimu pouze pro čtení. Výchozí hodnota je False.

CreateBackup: toto je volitelná možnost typu Boolean, která určuje, zda je nutné před uložením zálohovat soubor. Výchozí hodnota je False.

Zde je příklad použití funkce Application.SaveAs s uvedením některých parametrů:

Sub SaveWorkbook()Dim path As StringDim format As XlFileFormat' Установка значений параметровpath = "C:\Мои документы\Мой файл.xlsx"format = xlOpenXMLWorkbook' Сохранение книгиThisWorkbook.SaveAs Filename:=path, FileFormat:=formatEnd Sub

V tomto příkladu bude kniha uložena v uvedené cestě a se zadaným formátem souboru.

Praktické tipy pro použití funkce Application.SaveAs

Funkce Aplikace.SaveAs v jazyce VBA (Visual Basic for Applications) umožňuje ukládat soubory v různých formátech. Zde je několik užitečných tipů pro použití této funkce:

1. Zadejte úplnou cestu k uloženému souboru. Při volání funkce SaveAs musíte zadat úplnou cestu k souboru, včetně názvu souboru a jeho přípony. Například pro uložení souboru s názvem " data.xlsx " na ploše, musíte zadat následující cestu:" C:\Users\Имя_Пользователя\Desktop\data..xlsx". Pokud zadáte úplnou cestu, soubor bude uložen v aktuálním adresáři.

2. Použijte validní znaky v názvu souboru. Některé symboly jako Slash ( " / " ) nebo otazník ("?"), zakázáno ve jménech souborů. Při ukládání souboru s neplatnými znaky v názvu dojde k chybě. Ujistěte se, že název souboru obsahuje pouze povolené znaky.

3. Určete formát souboru. Funkce SaveAs dokáže ukládat soubory v různých formátech, jako je Excel, CSV, PDF a další. Při volání funkce je nutné zadat požadovaný formát pomocí druhého argumentu funkce. Chcete-li například uložit soubor ve formátu Excel, musíte použít hodnotu xlOpenXMLWorkbook.

4. Nastavte další možnosti. Funkce SaveAs má řadu dalších možností, které mohou být v některých případech užitečné. Můžete například určit, zda jsou vzorce a formátování uloženy v souboru a zda zálohovat. Podívejte se na dokumentaci funkce SaveAs a zjistěte Dostupné možnosti a jejich hodnoty.

Poznámka: Tyto tipy vám pomohou správně používat funkci aplikace.SaveAs v Excelu VBA však existují i jiné způsoby ukládání souborů, jako je funkce SaveCopyAs a metoda SaveAs v objektu Workbook. Použijte nejvhodnější způsob podle vašich potřeb a požadavků.

Čtěte také