Diálogo de Importação do Excel que solicita a localização do arquivo

Question

É possível ter uma parada Macro do Excel e solicitar a localização do arquivo a ser importado?

Eu criei várias macros para importar arquivos de texto, mas o arquivo importado deve sempre existir no mesmo local e no mesmo nome de arquivo.

    

Answer 1

Isso fará isso:

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