Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com GetOpenFi...
 
Notifications
Clear all

Ajuda com GetOpenFilename

 
2024 - VBA & Macros
Post Recente por EDIVAN 9 anos atrás
3 Posts
3 Usuários
0 Reactions
1,086 Visualizações
RSS
 Paulo_001
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Olá a todos!

Estou desenvolvendo um formulário no qual eu gostaria usar o GetOpenFilename para escolher algum arquivo no computador ( a maior parte será PDF) e salvar a penas o caminho desse arquivo.
Nesse processo eu gostaria de que a pessoa localizasse o arquivo e o caminho do mesmo aparecesse em uma label, para depois ser salvo em uma célula.
Portanto criei esse código. 

Private Sub CommandButton1_Click()

Dim caminho As Variant

caminho = Application.GetOpenFilename

Label8.Caption = caminho

End Sub

Mas se eu abrir a janela com o GetOpenFilename e depois simplesmente fecha-la sem escolher nenhum arquivo, minha label fica com valor "falso", alguém saberia como proceder?

 
Postado : 07/01/2016 7:05 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Tenta assim


Private Sub CommandButton1_Click()

Dim caminho As Variant

caminho = Application.GetOpenFilename

if caminho = "" then Exit sub

Label8.Caption = caminho

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/01/2016 7:14 pm
 EDIVAN
(@edivan)
Posts: 119
Estimable Member
 

Simples, basta por um IF para verificar se o valor da variavel caminho é igual a falso se for então faz o que quiser, veja que eu coloquei para limpar a label8 e parar a execução do código usando o Exit Sub, veja:

Private Sub CommandButton1_Click()

Dim caminho As Variant

caminho = Application.GetOpenFilename

If caminho = False Then

Label8.Caption = ""

Exit Sub

End If

Label8.Caption = caminho

End Sub

Visite meu blog:

programacaopassoapasso.wordpress.com

 
Postado : 07/01/2016 7:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico