O método BrowseForFolder pode fazer o seu aplicativo do Microsoft Office Excel mais dinâmico e você não precisa caminhos de código rígidos em seu programa. O método BrowseForFolder permite solicitar que o usuário navegue para uma pasta específica no seu computador usando o Visual Basic for Applications (VBA). O caminho da pasta retornado pode ser usado para outros fins de programação, como a leitura ou gravação de um arquivo . Reduzir manutenção por não ter de código duro todos os caminhos em seu programa. Instruções
1

lançamento Excel , clique na guia "Desenvolvedor" , seguido de " Visual Basic ". Clique no menu "Inserir" e selecione " UserForm " para inserir um novo formulário. Clique no menu " View" e clique em " caixa de ferramentas " para ver os controles que você pode adicionar ao seu formulário.
2

Clique em " CommandButton " na caixa de ferramentas e clique e arraste em seu formulário para criar controle de botão. Adicione um novo controle de caixa de texto usando a mesma técnica.
3

Dê um duplo clique no novo botão para abrir a janela Editor do Visual Basic. Digite o seguinte código abaixo "Private Sub CommandButton1_Click () : "

On Error GoTo Err_CommandButton1_Click :
4

Digite o seguinte código para definir duas variáveis ​​que você vai usar em seu programa :

Dim pathSelected as String Dim

ShellApp as Object
5

Digite o código a seguir para iniciar o método " BrowseForFolder " e exibir uma janela de diálogo para que o usuário escolha uma pasta:

Set ShellApp = CreateObject (" Shell.Application " ) . _

BrowseForFolder (0, " Escolha uma pasta " , 0, OpenAt )
6

Digite o seguinte para obter a pasta selecionada no " BrowseForFolder " janela de diálogo :

pathSelected = ShellApp.self.Path
7

Digite o seguinte para adicionar o caminho selecionado para o controle de caixa de texto no formulário :

Me.TextBox1.Text = pathSelected
8

Digite o seguinte para liberar o objeto da memória :

Set ShellApp = Nothing
9

Digite o seguinte para exibir uma caixa de mensagem com qualquer possíveis erros e terminar o procedimento :

Exit_CommandButton1_Click :

Exit Sub

Err_CommandButton1_Click :

MsgBox Err.Description

Retomar Exit_CommandButton1_Click :

End Sub
10

Pressione " F5" para executar o programa e clique em " CommandButton1 " para procurar uma pasta. Escolha uma pasta e clique em " OK". O caminho vai ser exibido no controle de caixa de texto.