Como abrir um arquivo do Excel usando a janela Procurar?

Pode ser fácil e rápido para você abrir um arquivo do Excel a partir de uma janela Procurar ao lidar com uma pasta de trabalho, em vez de minimizar a pasta de trabalho ativa para escolher e abrir outra pasta de trabalho. Este tutorial abordará como abrir um arquivo do Excel usando a janela Procurar em uma pasta de trabalho do Excel.

Abrir um arquivo do Excel usando a janela Procurar com código VBA

Abrir um arquivo do Excel usando a janela Procurar com código VBA

Para abrir uma pasta de trabalho do Excel usando a janela Procurar, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:

1. Pressione e segure as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.

Código VBA: Abrir pasta de trabalho do Excel usando a janela Procurar:

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. Após colar o código acima, pressione a tecla F5 para executar este código, e a janela Procurar será exibida; selecione uma pasta de trabalho do Excel que deseja abrir e clique no botão OK, veja a captura de tela:

4. E a pasta de trabalho específica será aberta imediatamente.