Como conseguir o caminho de uma pasta utilizando VBA

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.

como-conseguir-o-caminho-de-uma-pasta-utilizando-VBA

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

Comentários