Olá amigos,
Muitas vezes estamos desenvolvendo uma rotina, sistema ou aplicação com o VBA, que exige que tenhamos de selecionar uma determinada pasta, seja para abrir um determinado aquivo ou para salvar os arquivos da rotina em determinada pasta.
Para resolver este problema temos a rotina abaixo que faz a exibição da caixa de seleção e atribui o endereço a uma variável
Sub Localizar_Caminho()
Dim strCaminho As String
With Application.FileDialog(msoFileDialogFolderPicker)
'Permitir mais de uma pasta
.AllowMultiSelect = False
'Mostrar janela
.Show
If .SelectedItems.Count > 0 Then
strCaminho = .SelectedItems(1)
End If
End With
Atribuir caminho a variável
modFileBrowser = strCaminho
End Sub
Esta é uma maneira prática de conseguir o caminho (path) de uma pasta existente no computador usando uma “Caixa de Diálogo”.
Peço que deixe seus comentários, opiniões e dúvidas para que assim possamos evoluir com o tema e enriquecer nossas discussões.
Um abraço!
Douglas Godoy
Deixe um comentário