Съдържание
Съхраняваме важна информация в Excel работни книги. Извършваме също така различни операции в зависимост от нашите изисквания. Затова е необходимо да запазваме файла, след като го актуализираме. В противен случай може да загубим някои ценни данни. Има някои ефективни начини за Запазете на Работна книга на Excel Освен това запазването на Excel файл според нашите желания Формат или съхраняване на файла в желания Местоположение В тази статия ще ви покажем най-полезните примери за Excel VBA Запазване като файлов формат .
Изтегляне на работна тетрадка за практика
Изтеглете следната работна тетрадка, за да се упражнявате сами.
VBA Запазване като файлов формат.xlsm12 примера за запазване на Excel VBA като файлов формат
За да илюстрираме, ще използваме следния набор от данни като пример. Например, наборът от данни представлява Продавач , Продукт , и Нетни продажби на компания. Тук ще запазим тази работна книга, като приложим Excel VBA Запазване като файлов формат .
1. VBA за запазване като файл на Excel
В нашия първи пример ще ви покажем прост Код VBA за да запазите Excel Затова следвайте стъпките по-долу, за да изпълните задачата.
СТЪПКИ:
- Първо, отидете в Раздел Разработчик.
- След това изберете Visual Basic .
- В резултат на това VBA ще се появи прозорец.
- След това щракнете върху Вмъкване на .
- След това изберете Модул .
- Следователно Модул ще се появи прозорец.
- След това копирайте следния код и го поставете в полето.
Sub Example_1() ActiveWorkbook.SaveAs End Sub 
- Сега стартирайте кода, като натиснете F5 .
- Следователно ще трябва да въведете името на файла, формата и друга информация, както е поискано.
- Накрая ще запишете файла в посоченото от вас местоположение.
Прочетете още: Как да запазите работен лист като нов файл с помощта на Excel VBA
2. Определяне на разширението на файла с Excel VBA
В предишния пример трябваше ръчно да зададем Формат на файла след натискане на командата run. Но тук ще покажем по-ефективен начин за прилагане на Excel VBA Запазване като файлов формат за запазване на работни книги в желания формат. Просто ще посочим разширението на файла след името на файла. Така че, вмъкнете кода по-долу в Модул прозорец.
Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub 
По този начин можете да стартирате кода, за да получите файла в желания формат и местоположение. запишете файла във формат xlsx, тип xlsx вместо xlsm .
Прочетете още: Excel VBA макрос за запазване на PDF в определена папка (7 идеални примера)
3. Excel VBA за използване на код за файлов формат
Можем обаче да въведем Кодов номер на формата на файла вместо да посочвате разширението на файла. Някои полезни кодове са: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 . Оттук копирайте следния код и го поставете в Модул кутия.
Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub 
Прочетете още: [Поправено!] Защо Excel не запазва форматирането ми? (7 възможни причини)
4. Записване в същата директория с VBA
В този пример ще покажем как да Запазете в Същата директория където файлът вече е с Excel VBA . Затова въведете кода в Модул прозорец.
Sub Example_4() ActiveWorkbook.SaveAs Име на файла:="excel vba save as file format" End Sub 
Прочетете още: Excel VBA: Избор на местоположение и запазване като PDF
5. VBA за съхраняване в нова директория
Въпреки това може да се наложи да запишем файла в Нова директория . Така въведете следния код в Модул и го стартирайте.
Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location End Sub 
6. Попитайте за парола, за да отворите файла Excel
Освен това можете да приложите Excel VBA Запазване като файлов формат да поискате Парола към Отваряне на файл на Excel . Така че вмъкнете и изпълнете кода по-долу.
Sub Example_6() ActiveWorkbook.SaveAs _ Име на файла:="D:\SOFTEKO\excel vba save as file format.xlsm", Парола:="one" End Sub 
Прочетете още: Как да запазите файл на Excel с парола
Подобни четива
- Excel VBA за запазване на файл с променливо име (5 примера)
- Как да запазите Excel като PDF пейзаж (с бързи стъпки)
- Excel VBA за запазване като файл, използвайки път от клетката (с бързи стъпки)
- VBA код за бутон за запазване в Excel (4 варианта)
- [Поправено!] Excel CSV файл не запазва промените (6 възможни решения)
7. Добавяне на парола за редактиране в Excel
Освен това можете да поискате Парола за Редактиране на в Excel . Без паролата ще се отвори само във формат само за четене. Копирайте кода и го поставете. След това стартирайте кода.
Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub 
8. Отваряне във формат само за четене
Отново за отваряне на файл в Само за четене Формат , въведете следния код и натиснете F5 за да го стартирате.
Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub 
Прочетете още: Как да отворите документ на Word и да го запазите като PDF или Docx с VBA Excel
9. Генериране на диалогов прозорец "Запазване като
Друга полезна операция на Excel VBA за запазване като файлов формат е да генерира Диалогов прозорец Запазване като . Затова въведете кода по-долу.
Sub Example_9() Application.GetSaveAsFilename End Sub 
Прочетете още: Макрос на Excel за запазване като PDF (5 подходящи примера)
10. VBA за създаване на & Запазване на нова работна книга
В допълнение към записването на файл можем също така Създаване на & Запазване на нова работна книга с VBA За да изпълните задачата, въведете следния код в Модул и натиснете F5 .
Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub 
Прочетете още: Excel VBA: Запазване на лист като нова работна книга без отваряне
11. Запазване на активна работна книга в Excel
По същия начин можем да запазим активната работна книга, където тя вече е съхранена. За да извършите операцията, вмъкнете много простия код.
Sub Example_11() ActiveWorkbook.Save End Sub 
Прочетете още: Как да запазите макрос за всички работни книги в Excel (с лесни стъпки)
12. VBA за запазване като PDF формат в Excel
Накрая можем да използваме PDF разширение на файла в нашия VBA код за запазване в Формат PDF . Така че, прилагайте Excel VBA Запазване като файлов формат След това стартирайте кода, като натиснете F5 .
Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub 
Прочетете още: Как да запазите Excel като PDF (6 полезни начина)
Заключение
Отсега нататък ще можете да записвате файлове с Excel VBA Запазване като файлов формат следвайки описаните по-горе примери. Продължавайте да ги използвате и ни уведомете, ако имате още начини за изпълнение на задачата. следвайте ExcelWIKI уебсайта за още статии като тази. Не забравяйте да пускате коментари, предложения или запитвания, ако имате такива, в раздела за коментари по-долу.
