Ir ao conteúdo
  • Cadastre-se
Andrade6854

RESOLVIDO Exibir somente o caminho da pasta no Textbox

Recommended Posts

Boa noite.

 

 

Gostaria que me ajudasse, quero criar uma " caixa de texto" e um "botão", ao clicar no botão, ele abra uma janela e lá vou procurar um diretório especifico, como exemplo "C: \doc\recibo_2013", ao clicar em ok,  o caixa de texto mostrara apenas o diretório selecionado, como exemplo: C:\doc\recibo_2013.

 

 

Grato.

 

 

Attn.

 

 

 

 

 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

essa caixa de texto está na planilha ou em userform?

Qual o nome dela?

 

O código para selecionar diretório:

 

Sub SelecionaDir()    With Application.FileDialog(msoFileDialogFolderPicker)        .InitialFileName = "C:\"        .Title = "Selecione uma pasta"        .Show        If .SelectedItems.Count > 0 Then cadastro_de_recibos.usercad.value = .SelectedItems(1)    End WithEnd Sub
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

essa caixa de texto está na planilha ou em userform?

Qual o nome dela?

 

O código para selecionar diretório:

 

Sub SelecionaDir()    With Application.FileDialog(msoFileDialogFolderPicker)        .InitialFileName = "C:\"        .Title = "Selecione uma pasta"        .Show        If .SelectedItems.Count = 0 Then            MsgBox “Cancelado”            Else            MsgBox .SelectedItems(1)        End If    End WithEnd Sub

 

 

Boa tarde.

 

 

Ele esta em uma Userform, o nome dela é " cadastro de recibos", nome do objeto é "usercad"

 

 

Attn.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mudei o codigo no post la em cima, ve aí, agora é só você atrelar a macro ao botão.

voce tb pode mudar a pasta inicial de "C:\" para a pasta mais específica onde estão as subpastas.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Mudei o codigo no post la em cima, ve aí, agora é só você atrelar a macro ao botão.

voce tb pode mudar a pasta inicial de "C:\" para a pasta mais específica onde estão as subpastas.

obrigado Xflapc2, funcionou perfeitamente.

 

Attn

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×