Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir arquivo atrav...
 
Notifications
Clear all

Abrir arquivo através de openDialog

 
2024 - VBA & Macros
Post Recente por Syrax 8 anos atrás
3 Posts
2 Usuários
0 Reactions
868 Visualizações
RSS
 ti02
(@ti02)
Posts: 34
Eminent Member
Topic starter
 

Minha planilha abre arquivos, porém, necessito que seja chamada uma OpenDialog.
Pois a planilha apesar de abrir o arquivo que eu desejo, já tem diretório e nome pré-definidos, o que na minha visão limita um pouco seu uso e pode até confundir o usuário final.
Como posso fazer para abrir através de openDialog? é algo complexo?
Abaixo o meu código de como está sendo aberto, foi gravado numa macro.

Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Call LIMPBASE
    Workbooks.Open Filename:="W:DIRETORIAINTEGRAÇÃOLANÇAMENTOS.xls"
 
Postado : 03/04/2017 11:34 am
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Há dois jeitos

Embora eu acredite que Application.GetOpenFilename é o mais simples

Você pode usar

Sub abrir()
Dim i As Object
Set i = Application.FileDialog(msoFileDialogFilePicker)
i.Show
If i.SelectedItems.Count > 0 Then
Workbooks.Open i.SelectedItems(1)
End If
End Sub

ou 

Sub abrir()
Dim i
i = Application.GetOpenFilename()
If i <> False Then
Workbooks.Open i
End If
End Sub

Se isso te ajudou, clique no "joinha" ao lado de citar

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 03/04/2017 12:18 pm
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

ti02,

Seria interessante você responder se a sua dúvida foi resolvida, assim como você teve essa dúvida, outras pessoas também tem
Clicando em resolvido, ajuda na busca dentro do fórum esclarecendo que esse problema já foi resolvido

Assim que abrirem tópicos, por favor, estejam cientes que isso é importante para o fórum
Não apenas postar a dúvida, pegar a resposta e abandonar o post

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 04/04/2017 8:37 am
Forum Jump:
  Tópico Anterior
Próximo Tópico