Macro para importar vários arquivos .TXT

Question

Sub ImportarTXT()

    Dim Pasta As String

    Dim Arquivo As String

    'Abre caixa de diálogo para selecionar a pasta onde estão

    'os arquivos

    With Application.FileDialog(msoFileDialogFolderPicker)

       .Show

       Pasta = .SelectedItems(1)

    End With

    Arquivo = Dir(Pasta & "\*.txt")

    'Laço para abrir cada um dos arquivos

    While Arquivo <> ""

        Workbooks.OpenText Filename:=Arquivo, Origin:=xlMSDOS, _

        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _

        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _

        ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

        ActiveSheet.[A1].CurrentRegion.Copy _

        ThisWorkbook.ActiveSheet.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0)

        ActiveWorkbook.Close False

        Arquivo = Dir

        DoEvents

    Wend

    MsgBox "Fim de Execução da Macro"

End Sub

Answer 1

Charles como você consegui resolver o erro 1004?

Aqui estou com esse problema

Answer 2

Olá tentei executar essa macro e apareceu o erro:

erro de tempo de execução 1004

Erro de definição de aplicativo ou definição de projeto

pode me ajudar

Answer 3

Consegui resolver o problema acima agora mostra a seguinte mensagem:

o arquivo  nome.txt não foi encontrado

Answer 4

Olá tentei executar essa macro e apareceu o erro:

erro de tempo de execução 1004

Erro de definição de aplicativo ou definição de projeto

pode me ajudar

Answer 5

Muito Bom...