Usuário com melhor resposta
Exibir janela do Windows Explorer para escolha de arquivo

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!!- Editado Apenas mais um quinta-feira, 23 de janeiro de 2014 01:34
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
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
-
-