Vba: как открыть книгу по пути

Вы можете использовать метод Workbooks.Open в VBA, чтобы открыть книгу Excel по определенному пути.

Вот общий способ использования этой функции на практике:

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

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

Затем макрос автоматически найдет книгу, расположенную по определенному пути, и откроет ее в Excel.

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

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

Допустим, у нас есть книга Excel с именем my_workbook2.xlsx , расположенная в следующем месте:

C:\Users\bob\Documents\my_workbook2.xlsx

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

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

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

Как только мы запустим этот макрос, появится окно, в котором мы можем ввести путь к книге в поле ввода:

Как только мы нажмем «ОК» , макрос откроет книгу Excel, расположенную по указанному нами пути.

Обратите внимание: если вы введете имя книги в несуществующий путь к файлу, VBA выдаст сообщение об ошибке.

Например, предположим, что мы пытаемся открыть книгу с именем my_workbook3.xlsx , которая не существует.

VBA выдаст следующее сообщение об ошибке:

Это позволяет нам узнать, что указанный нами путь к файлу не существует.

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

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

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

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