VBA Сохранить как | Как использовать метод «Сохранить как» в VBA Excel?

Excel VBA Сохранить как

Метод VBA Save As используется для сохранения файла Excel в определенном месте. Чтобы сохранить книгу с использованием кода vba, мы используем объект Workbook с функцией SaveAs.

После всей тяжелой работы, которую мы проделали в рабочей тетради, мы сохраняем ее, не так ли? Больно терять данные, над которыми мы работали. У нас есть два типа сохранений в Excel или в любом другом файле: один - «Сохранить», а другой - «Сохранить как». Ctrl + S - это популярное сочетание клавиш, как Ctrl + C и Ctrl + V во всем мире. Но это не совсем привычная концепция «Сохранить как» . В обычном рабочем листе горячая клавиша для сохранения файла - это клавиша F12 . В VBA мы также можем сохранить файл как « Сохранить как ».

Что делает функция "Сохранить как" в VBA?

Это общая задача экономии работы в процессе автоматизации. После всей работы мы хотим сохранить файл.

Рабочие тетради («Продажи 2019.xlsx»). Сохранить

Этот код читает книгу с именем «Sales 2019.xlsx» для сохранения.

Точно так же можно создать копию книги, над которой мы работаем, с помощью метода «Сохранить как».

  • Имя файла: каково имя файла, который вы хотите передать. Это должно быть объединено с путем к папке с файлом.
  • Формат файла: каким должен быть формат сохраняемого файла.
  • Пароль: Вы хотите указать пароль для сохраняемого файла.
  • Write Res Password: укажите зарезервированный пароль для книги.

Думаю, этих параметров достаточно для понимания метода «Сохранить как».

Как использовать функцию «Сохранить как»?

Вы можете скачать этот шаблон VBA Save As Excel здесь - VBA Save As Excel Template

Пример # 1

Мы сохраняем книгу правильно, поэтому важно указать имя книги и ее расширение, чтобы использовать метод «Сохранить как». Так что упомяните книгу, которую вы сохраняете.

Код:

Sub SaveAs_Example1 () Workbooks («Sales 2019.xlsx»). Конец подписки

Теперь воспользуйтесь методом «Сохранить как».

Код:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs End Sub 

Теперь определите, где вы хотите сохранить.

Код:

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

Теперь поставьте обратную косую черту и введите имя файла по вашему желанию с расширением файла.

Код:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub 

Теперь укажите формат файла как «xlWorkbok».

Код:

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

Хорошо, мы закончили, файл будет сохранен на диске D> Имя папки (статьи)> Имя подпапки (2019).

Пример # 2

Сохранить все открытые книги

Предположим, вы работаете с 10 книгами на своем компьютере. Вы хотите создать резервную копию этих книг, сохранив их на компьютере как одну из копий. Если вы хотите работать с более чем одной книгой, необходимо использовать циклы.

Код ниже поможет вам сохранить все книги как копии.

Код:

 Sub SaveAs_Example2 () Dim Wb As Workbook для каждого Wb в рабочих книгах ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Изменить путь к файлу Next Wb End Sub

Если вы хотите выбрать свой собственный путь к папке, вы можете использовать этот код.

Код:

 Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Как только вы запустите этот код с помощью клавиши F5 или вручную, он попросит вас выбрать путь к папке назначения, выбрать и нажать ОК, он сохранит файл.