Sub asdfasdf()
    Dim oExApp As Object, oFD As Object
    Dim x, lf As Long
    
    On Error Resume Next
    Set oExApp = GetObject(, "Excel.Application")
    If oExApp Is Nothing Then 'если Excel закрыт
        Set oExApp = CreateObject("Excel.Application")
    End If
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = oExApp.FileDialog(3) 'msoFileDialogFilePicker
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = "С:\Temp\Книга1.xlsx" 'назначаем папку отображения и имя файла по умолчанию
        If oFD.Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            MsgBox x 'открытие книги
        Next
    End With
End Sub