Macro - Excel Importar 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

Eduardo,

Uma dúvida, como posso fazer para que esse processo execute em background e salve a planilha

Abs,?

Answer 2

ajudou muito!

valew...

Answer 3

Ai Sim...