Este fórum está sendo desativado

[JanilsonBrito]

Senhores, mais uma vez preciso da ajuda de vocês.
preciso criar uma rotina que localiza determinado arquivo e importa os dados, porem preciso fazer isso com vários arquivos.
ex:
c:\arquivos\abc.txt; xyz.txt; def.txt
Consegui montar o vba para verificar 01 arquivo e importar, queria que a rotina continuasse até importar todos aquivos.
Me corrijam se eu estiver errado, minha rotina abaixo, localiza o arquivo abc.txt, se ele existe importa executando a rotina Importaarquivoabc , se não existe finaliza.
O que eu gostaria é: procura o arquivo abc.txt, se achar!Executa a rotina que importa o arquivo abc.txt, se não achar, vai procurar o próximo arquivo, xyz.txt. Se achar o arquivo xyz.txt executa a rotina que importa o mesmo se não achar, vai procurar o arquivo def.txt. etc....
Como tenho mais ou menos 10 arquivos para importar e todos com nomes diferentes, gostaria de criar uma unica rotina que fizesse isso, sendo que se caso não ache o arquivo não pare a rotina até o final.

Sub localiza_importa_arq()
Dim strPath As Variant
strPath = "\c:\arquivos\abc.txt"
If Dir(strPath) = vbNullString Then
strCheck = False
Else
strCheck = True
Importaarquivoabc
End If

End Sub

[RodrigoRMC]

Boa noite,

Crie uma Sub que recebe por parâmetro o nome arquivo a ser importado, essa função sabe abrir o arquivo e executar o processamento (Ex: Sub RecebeArquivoExecutaProcessamento

Crie uma Sub que que tenha um loop e chame a sub RecebeArquivoExecutaProcessamento toda vez que for necessária.
A sua lógica de IF/Else não funciona, tem que ser uma lógica de Do/Loop, For/Next, While/Wend.

Atenciosamente,
RodrigoRMC

[alexandrevba]

Bom dia!!
Tente.

Código: Selecionar todos

Sub UsePesquisaForum()
    Const strPath As String = "C:\SeuDiretórioAqui\"
    Dim strExtension As String
     
    Application.ScreenUpdating = False
    ChDir strPath

    strExtension = Dir(strPath & "*.txt")
     
    Do While strExtension <> ""
        'Código de importação
        strExtension = Dir
    Loop
    Application.ScreenUpdating = True
     
End Sub

Att