Notifications

Clear all

Procurar o nome do arquivo pelo Diag Box

2024 - VBA & Macros

Post Recente por Synth 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,000 Visualizações

RSS

Synth

(@synth)

Posts: 70

Trusted 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: 732

Honorable 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)

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 24/05/2018 7:44 pm