Форум по VBA и MS Office

Sub Макрос()
   
    Dim FN As String
   
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "OK"
        .Filters.Clear
        .Filters.Add "Файлы Excel", "*.xls*"
        .Title = "Заголовок окна"
        ' Если пользователь отказался выбирать файл.
        If .Show = False Then
            Exit Sub
        End If
        ' Если пользователь выбрал файл.
        ' Запись полного имени выбранного файла в переменную "FN".
        FN = .SelectedItems(1)
    End With
   
End Sub