Como programar um botão de Navegador no Excel VBA para obter um nome de Pasta

Escrito por jaime avelar | Traduzido por monique oliveira
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como programar um botão de Navegador no Excel VBA para obter um nome de Pasta
Busque um caminho de pasta no Excel usando o VBA. (Stockbyte/Stockbyte/Getty Images)

O método BrowseForFolder pode tornar seu Microsoft Office Excel mais dinâmico por não exigir a codificação de caminhos em seu programa. O método BrowseForFolder permite que você solicite ao usuário navegar por uma pasta específica no computador usando Visual Basic para Aplicações (VBA). O caminho de pasta restituído pode ser usado em outros objetivos de programação tais como ler e salvar um arquivo. Reduza a manutenção, não tendo que codificar todos os caminhos em seu programa.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o Excel, clique na aba "Desenvolvedor" seguido por "Visual Basic". Clique no menu "Inserir" e selecione "Formulário" para inserir um novo Formulário. Clique no menu "Exibir" e clique em "Caixa de ferramentas de controle" para ver os controles que podem ser adicionados ao seu formulário.

  2. 2

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

  3. 3

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

    On Error GoTo Err_CommandButton1_Click:

  4. 4

    Digite o seguinte código para definir as duas variáveis que serão usadas no programa:

    Dim pathSelected As String Dim ShellApp As Object

  5. 5

    Digite o seguinte código para iniciar o método "BrowseForFolder" e mostrar a caixa de diálogo para o usuário escolher uma pasta:

    Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Escolher uma pasta", 0, OpenAt)

  6. 6

    Digite o código abaixo para obter a pasta selecionada na caixa de diálogo "BrowseForFolder":

    pathSelected = ShellApp.self.Path

  7. 7

    Digite o código abaixo para adicionar o caminho selecionado para o controle de caixa de texto no formulário:

    Me.TextBox1.Text = pathSelected

  8. 8

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

    Set ShellApp = Nothing

  9. 9

    Para mostrar uma caixa de mensagem com possíveis erros e concluir o processo digite:

    Exit_CommandButton1_Click: Exit Sub Err_CommandButton1_Click: MsgBox Err.Description Resume Exit_CommandButton1_Click: End Sub

  10. 10

    Pressione "F5" para executar o programa depois clique em "CommandButton1" para navegar por uma pasta. Escolha uma pasta e clique "OK". O caminho será mostrado no controle da caixa de texto.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível