Как открыть файл Excel с помощью окна обзора?

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

Откройте файл Excel с помощью окна обзора с использованием кода VBA

Откройте файл Excel с помощью окна обзора с использованием кода VBA

Чтобы открыть книгу Excel с помощью окна обзора, следующий код VBA может помочь вам, пожалуйста, сделайте следующее:

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Код VBA: Открыть книгу Excel с помощью окна обзора:

Sub OpenNewBox()
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFilePicker)
  With xObjFD
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm; *.xlsb", 1
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
    End With
    Workbooks.Open xFilePath
End Sub

3. После вставки вышеуказанного кода нажмите клавишу F5, чтобы запустить этот код, и отобразится окно Обзор, затем выберите книгу Excel, которую хотите открыть, и нажмите кнопку ОК, см. скриншот:

4. И конкретная книга будет немедленно открыта.