¿Cómo abrir un archivo de Excel utilizando la ventana Examinar?

Puede ser fácil y rápido para usted abrir un archivo de Excel desde una ventana Examinar cuando está trabajando con un libro en lugar de minimizar el libro activado para elegir y abrir otro libro. Este tutorial hablará sobre cómo abrir un archivo de Excel utilizando la ventana Examinar en un libro de Excel.

Abrir un archivo de Excel utilizando la ventana Examinar con código VBA

Abrir un archivo de Excel utilizando la ventana Examinar con código VBA

Para abrir un libro de Excel utilizando la ventana Examinar, el siguiente código VBA puede ayudarte, por favor haz lo siguiente:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana del Módulo.

Código VBA: Abrir libro de Excel utilizando la ventana Examinar:

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. Después de pegar el código anterior, presiona la tecla F5 para ejecutar este código, y se mostrará la ventana Examinar; luego selecciona un libro de Excel que quieras abrir y haz clic en el botón Aceptar, mira la captura de pantalla:

4. Y el libro específico se abrirá inmediatamente.