В этой статье мы узнаем о методе закрытия и открытия в Excel VBA, который используется для открытия книги закрытия, а также закрытия открытой книги.

Создаем командную кнопку в листе Excel и назначаем макрос.

Чтобы узнать о том, как создать элемент управления Activex, щелкните ссылку link: / tips-activex-controls-in-microsoft-excel-2010 [ссылка]

Как открыть книгу Excel через VBA?

Следуйте приведенным ниже инструкциям и кодированию: — * Вставьте 2 кнопки управления.

  • Первую командную кнопку мы используем для щелчка правой кнопкой мыши по командной кнопке.

  • Страница VBE откроется, скопируйте приведенный ниже код и вставьте на страницу VBE.

  • Для открытия книги назначьте указанный ниже макрос.

Sub sOpenWorkbook ()

‘определить переменную для имени файла Dim csFileName As String’ получить имя файла из ячейки A1 на Sheet1 csFileName = ThisWorkbook.Sheets («Пример открытия и закрытия»). Range («A1»)

‘откройте книгу Workbooks.Open csFileName MsgBox csFileName & «open»

End Sub * Вторая командная кнопка, которую мы используем для щелчка правой кнопкой мыши по командной кнопке.

  • Страница VBE откроется, скопируйте приведенный ниже код и вставьте на страницу VBE.

  • Для открытия книги назначьте указанный ниже макрос.

Sub sCloseWorkbook ()

‘определить переменную для имени файла Dim csFileName As String’ получить имя файла из ячейки A1 на Sheet1 csFileName = ThisWorkbook.Sheets («Пример открытия и закрытия»). Range («A1»)

‘закрыть книгуРабочие книги (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). CloseMsgBox Split (csFileName, «\») (UBound (Split (csFileName, «\»))) & «закрыто»

Конец подпрограммы Оба макроса будут назначены командным кнопкам, мы должны использовать кодировку макроса ниже.

Option Explicit Sub sExample () Const csFileName As String = _ «C: \ Test \ Master.xlsx» Workbooks.Open csFileNameWorkbooks (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). Close End Sub Sub sOpenWorkbook ()

‘определить переменную для имени файла Dim csFileName As String’ получить имя файла из ячейки A1 на Sheet1 csFileName = ThisWorkbook.Sheets («Пример открытия и закрытия»). Range («A1») ‘открыть книгу Workbooks.Open csFileNameMsgBox csFileName & «открыт «

Конец подпрограммы sCloseWorkbook ()

‘определить переменную для имени файла Dim csFileName As String’ получить имя файла из ячейки A1 на Sheet1 csFileName = ThisWorkbook.Sheets («Пример открытия и закрытия»). Range («A1»)

‘закрыть книгуРабочие книги (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). CloseMsgBox Split (csFileName, «\») (UBound (Split (csFileName, «\»))) & «закрыто»

Конец подписки: — Вы должны указать путь в соответствии с вашим файлом.

image 4