В този урок ще споделя с вас 5 подходящи начини за запазване на копие на файл на Excel в XLSX формат, като използвате VBA . Можете да използвате тези методи във всякакъв вид работни книги, независимо дали съдържат големи или малки данни. Също така, тъй като ще използваме VBA , изпълнението на задачата няма да отнеме почти никакво време.

Изтегляне на работна тетрадка за практика

Можете да изтеглите работната тетрадка за упражнения от тук.

Какво е XLSX файл?

Сайтът XLSX файл е MS Excel Отворен XML формат Електронна таблица който съхранява данни в клетки, които се намират в работни листове. Клетките са подредени в структура ред-колона. MS Excel 2007 и по-рано този файл на електронна таблица беше от типа XLS .

5 подходящи начина за запазване на копие на файл на Excel като XLSX с помощта на VBA

Основната цел на този урок е да ви покажем как да запазите текущата работна книга в XLSX Така че ние взехме прост и кратък набор от данни, който има 3 колони и 6 записи на оценките на учениците. Но имате възможност да използвате свои собствени набори от данни.

1. Използване на метода SaveCopyAs

Методът SaveCopyAs в Excel VBA приема обект на работна книга и може да запише ново копие на тази работна книга в XLSX Нека видим как да използваме този метод в нашия код.

Стъпки:

• Първо, отидете в Разработчик и изберете Visual Basic .

• След това в Visual Basic щракнете върху Вмъкване на и изберете Модул .

• Сега в новия прозорец на модула вдясно въведете следната формула:

 Sub SaveCopyAs_Method() Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs "C:\Users\USER\Desktop\5700\SaveCopyAs method.xlsx" End Sub 

• След това затворете VBA и отидете в прозореца Разработчик отново в раздела.
• Тук изберете Макроси .

• Сега, в Macro трябва да видите вмъкнатия макрокод.
• След това щракнете върху Изпълнявайте .

• Накрая отворете папката, в която сте записали файла, и той трябва да бъде достъпен в XLSX формат, какъвто искаме.

Прочетете още: Как да запазите макрофайловете на Excel като име на файл от стойността на клетката

2. Посочване на името на файла

Можем да запазим копие на файл на Excel в XLSX формат, като посочите името на файла в VBA Когато задаваме името на файла, ще добавим и файловото разширение, което ще преобразува файла в желания от нас формат. За да продължите с този метод, вмъкнете следния код в VBA прозорец на модула.

 Sub Specify_file_name() Dim location As String location = "C:\Users\USER\Desktop\5700\Specify file name.xlsx" ActiveWorkbook.SaveAs Filename:=location End Sub 

След като въведете кода, просто го стартирайте от Макроси Сега отидете в папката за запаметяване и файла със символа XLSX Форматът вече трябва да е налице.

Прочетете още: Excel VBA за запазване на работна книга в определена папка с дата

3. Въвеждане на номер на формат на файла

Номерата на файловите формати са уникални номера, които обозначават конкретен тип файл по време на записването. За този урок целта ни е да запишем копие на Excel като XLSX файл, като използвате VBA . Така че ще използваме номера на формата 51 , което означава XLSX тип файл. Така че въведете следния код в VBA модул:

 Sub file_format_number() Dim location As String Application.DisplayAlerts = False location = "C:\Users\USER\Desktop\5700\File format number" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=51 End Sub 

Сега, ако стартирате този код, Excel веднага ще запише работната книга в XLSX формат. Можете да потвърдите това, като проверите в папката на местоназначението.

Прочетете още: Excel VBA Записване като файлов формат (12 подходящи примера)

4. Запазване с парола

В много случаи е много важно да запазите копие на работна книга на Excel в XLSX Това е особено вярно за работни книги, които имат висока степен на сигурност. Можете да постигнете тази задача много лесно, като използвате VBA и задаване на потребителска парола заедно със запазването на документа. За тази цел въведете следното VBA код в Модул прозорец:

 Sub Save_With_Password() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Save with password.xlsx", Password:="one" End Sub 

И накрая, както видяхме преди, просто трябва да стартирате този код от Макроси Сега, ако отидете в запазената си папка, трябва да намерите файла с името, което сте дали, и XLSX разширение в края.

Прочетете още: Excel VBA: Запазване на лист като нова работна книга без отваряне

5. Запазване чрез препоръчване Само за четене

По-малко строг начин за защита на документа е да го направите файл само за четене. Ако запазите копие на файл на Excel в XLSX тогава можете да зададете условието само за четене с помощта на VBA . За да направите това, въведете следния код в VBA модул:

 Sub recommend_read_only() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Recommend read only.xlsx", _ ReadOnlyRecommended:=True End Sub 

След това стартирайте този код от Макроси опция в рамките на Разработчик таб. Това трябва да запази XLSX копие на текущата работна книга, както е показано по-долу.

Прочетете още: Excel VBA за запазване на файл с променливо име (5 примера)

Нещата, които трябва да запомните

• Уверете се, че сте променили пътя за запазване на XLSX файл в VBA . Тя трябва да съвпада с пътя до папка в компютъра ви.
• Проверете два пъти дали сте изписали всички вградени VBA функционира точно както направих.
• Не забравяйте, че в някои случаи VBA кодът може вече да не е наличен в VBA след стартиране на кода.

Заключение

Надявам се, че методите, които показах, за да запазите копие на файл на Excel в XLSX формат, като използвате VBA са били полезни за вас. Ако се затрудните в някоя от стъпките или даден код не работи, тогава бих предложил да проверите предоставените от мен кодове няколко пъти. Също така опитайте да промените кода до известна степен, за да разберете какво прави кодът. Накрая, за да научите повече Excel техники, следвайте нашите ExcelWIKI уебсайт. Ако имате някакви въпроси, моля, уведомете ме в коментарите.