Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Procurar o nome do ...
 
Notifications
Clear all

Procurar o nome do arquivo pelo Diag Box

 
2024 - VBA & Macros
Post Recente por Synth 6 anos atrás
4 Posts
3 Usuários
0 Reactions
979 Visualizações
RSS
 Synth
(@synth)
Posts: 0
New Member
Topic starter
 

Olá consagrados beleza?

Então, queria saber se é possível eu criar um diag box para escrever o nome do arquivo que eu queira que a linha em negrita abra (não precisa ser uma diag box, poderia ser também uma lista que mostrasse todos os arquivos que tem dentro desta pasta.). É possível?

    
    Application.ScreenUpdating = False
    '''''''''''''''Workbooks.Open ("C:UsersABCDesktopNew folder1")''''''''''''''
    ThisWorkbook.Activate
    Application.ScreenUpdating = True
 
Postado : 24/05/2018 12:23 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Segue:

Sub Abrir()
arquivo = Application.InputBox("Digite o nome do arquivo")
Workbooks.Open ("C:Usersandre.arrudaDesktop" & arquivo)
End Sub

1 - O endereço é do meu PC, personalize conforme necessidade.
2 - Na hora de inserir o nome, não esqueça de inserir juntamente a extensão. (ex. .xlsm)

 
Postado : 24/05/2018 2:49 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!

Uma outra forma de fazer seria a seguinte:

Sub AbrirArquivo()
    Dim Arquivo
    
    Arquivo = Application.GetOpenFilename("Arquivos Excel (*.xls*), *.xls*")
    If Arquivo <> False Then
        Workbooks.Open Arquivo
    Else
        MsgBox "Nenhum arquivo selecionado", vbInformation
    End If
End Sub

Abraço

 
Postado : 24/05/2018 7:44 pm
 Synth
(@synth)
Posts: 0
New Member
Topic starter
 

Boa noite!

Uma outra forma de fazer seria a seguinte:

Sub AbrirArquivo()
    Dim Arquivo
    
    Arquivo = Application.GetOpenFilename("Arquivos Excel (*.xls*), *.xls*")
    If Arquivo <> False Then
        Workbooks.Open Arquivo
    Else
        MsgBox "Nenhum arquivo selecionado", vbInformation
    End If
End Sub

Abraço

Se eu quiser usar o comando Windows("").Activate, que nome eu coloco pra ele abrir o novo arquivo? e o velho?

 
Postado : 25/05/2018 6:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico