Abrir o gerenciador de arquivo para seleção

Question

Pessoal, gostaria de uma ajuda para abrir o explorer do excel para selecionar um arquivo, e assim que selecionar o botão "abrir", continuar rodando o código

Obrigado

Answer 1

Sub Main()
    Dim FilePath As String

    FilePath = Application.GetOpenFilename(FileFilter:="Arquivos do Excel,*.xls*", _
                                           Title:="Selecione uma Pasta de Trabalho", _
                                           MultiSelect:=False)
    If CStr(FilePath) = CStr(False) Then
        MsgBox "Nenhum arquivo selecionado.", vbInformation
        Exit Sub
    End If
    
    MsgBox "Arquivo selecionado: " & FilePath
End Sub

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG