Диалоговое окно импорта Excel, запрашивающее местоположение файла

Question

Можно ли остановить макрос Excel и запросить местоположение импортируемого файла?

Я создал несколько макросов для импорта текстовых файлов, но импортированный файл должен всегда существовать в одном и том же месте и с одним и тем же именем файла.

Answer 1

Это сделает это:

Sub getafile()
    Dim fStr As String

    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Cancel Selected"
            End
        End If
        'fStr is the file path and name of the file you selected.
        fStr = .SelectedItems(1)
    End With
    'Replace with your code.
    MsgBox fStr
End Sub