Close и Open метод в Excel VBA можно использовать для близких и открытых книг. Помните, что коллекция Workbooks содержит все объекты Workbook, которые в данный момент открыты.

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Код линии ниже закрывается крупным open.xlsm.

Workbooks("close-open.xlsm").Close

  1. Строка кода ниже закрывает первый открытый / созданную книгу.

Workbooks(1).Close

  1. строка кода ниже закрывает активную рабочую книгу.

ActiveWorkbook.Close

  1. Строка кода ниже закрывает все книги, которые в настоящее время открыты.

Workbooks.Close

  1. Строка кода ниже открывает sales.xlsx.

Workbooks.Open ("sales.xlsx")

Примечание: Вы можете только открытой sales.xlsx, не указав путь к файлу, если он хранится в вашем местоположение файла по умолчанию. Чтобы изменить местоположение файла по умолчанию, на вкладке Файл выберите команду Параметры, Сохранить.

  1. Вы также можете использовать метод GetOpenFileName объекта Application, чтобы отобразить стандартное диалоговое окно Открыть.

Dim MyFile As String

MyFile = Application.GetOpenFilename()

  1. Выберите файл и нажмите кнопку Открыть.

GetOpenFilename Method

Примечание: GetOpenFilename фактически не открыть файл.

  1. Далее, вы можете открыть книгу, как обычно.

Workbooks.Open (MyFile)