none
Exibir janela do Windows Explorer para escolha de arquivo RRS feed

  • Pergunta

  • Olá pessoal! 

    Quero agrupar a informação de várias pastas de trabalho em uma só. Mas o caminho e o nome destas pastas estão sempre mudando. 


    Lembro-me de ter visto uma vez um código que abria uma espécie de janela do Windows Explorer para que o usuário pudesse escolher o arquivo que será aberto (como quando se clica em abrir), mas não encontrei este código novamente.

    Qual é este código? E como extrair o nome desta pasta de trabalho para poder usá-la na programação? Ao ser aberta será a pasta de trabalho ativa?

    Vlw, muito obrigado!!
    quinta-feira, 23 de janeiro de 2014 01:28

Respostas

  • Sub fGetFolder()
      Dim strPath As String
      
      With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecione uma pasta"
        If .Show Then
            strPath = .SelectedItems(1)
        Else
            strPath = ""
        End If
      End With
      
      MsgBox strPath
    End Sub
    O nome dessa janela é caixa de diálogo.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Apenas mais um sábado, 25 de janeiro de 2014 18:54
    quinta-feira, 23 de janeiro de 2014 20:46
    Moderador

Todas as Respostas

  • Sub fGetFolder()
      Dim strPath As String
      
      With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Selecione uma pasta"
        If .Show Then
            strPath = .SelectedItems(1)
        Else
            strPath = ""
        End If
      End With
      
      MsgBox strPath
    End Sub
    O nome dessa janela é caixa de diálogo.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta Apenas mais um sábado, 25 de janeiro de 2014 18:54
    quinta-feira, 23 de janeiro de 2014 20:46
    Moderador
  • Vlw Felipe! 

    Muito obrigado. Ajudou bastante.

    Eu precisava para abrir um arquivo. Aí foi só alterar:

    msoFileDialogFolderPicker por msoFileDialogFilePicker

    Abraço!
    sábado, 25 de janeiro de 2014 18:20
  • Ah sim, peguei um código pronto, mas esqueci de mudar a enumeração. Que bom que conseguiu resolver.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 26 de janeiro de 2014 16:38
    Moderador