Vba: как сохранить и закрыть книгу (с примером)

Вы можете использовать следующий синтаксис в VBA для сохранения и закрытия книги:

 SubSaveClose ()

ActiveWorkbook.Close_
SaveChanges:=True, _
Filename:=" C:\Users\bob\Desktop\MyExcelFile.xlsx "

End Sub

Этот конкретный макрос сохранит самые последние изменения в активной в данный момент книге, а затем закроет ее.

Оператор Filename указывает, где сохранить книгу.

Обратите внимание: если вы не хотите сохранять изменения перед закрытием книги, вместо этого вы можете использовать оператор SaveChanges:=False .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: сохранение и закрытие книги с помощью VBA

Допустим, у нас открыта следующая книга Excel, и мы просматриваем ее:

Допустим, мы хотим сохранить самые последние изменения, внесенные в эту книгу, а затем сохранить их на рабочем столе.

Для этого мы можем создать следующий макрос:

 SubSaveClose ()

ActiveWorkbook.Close_
SaveChanges:=True, _
Filename:=" C:\Users\bob\Desktop\MyExcelFile.xlsx "

End Sub

После запуска этого макроса самые последние изменения сохраняются, и книга автоматически закрывается.

Затем я могу перейти на рабочий стол своего компьютера и найти сохраненную книгу Excel:

Книга была сохранена как MyExcelFile.xlsx , как мы указали с помощью оператора Filename .

Примечание . Полную документацию по методу Workbook.Close в VBA можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как посчитать количество листов в книге
VBA: как извлечь данные из другой книги
VBA: как добавить новые листы