none
Abrir o gerenciador de arquivo para seleção RRS feed

  • Pergunta

  • 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

    quarta-feira, 1 de fevereiro de 2017 18:59

Todas as Respostas

  • 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

    quinta-feira, 2 de fevereiro de 2017 12:32
    Moderador