Tenho um TXT e precisaria realizar a importação deste linha a linha.
Hoje faço o comando de importação integral da seguinte forma:
Sub ImportarTXT_Entrada()
Dim Campos As Variant
Dim Arquivo As String
Application.ScreenUpdating = False
Sheets("Entradas").Visible = True
Sheets("Entradas").Select
Cells.Select
Selection.ClearContents
' aqui abre a caixa de diálogo para escolher o arquivo
Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt")
Open Arquivo For Input As #1
' aqui popula as tabelas e transporta em texto
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Arquivo, Destination:=Range("$A$1"))
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Close #1
Sheets("Entradas").Visible = False
Application.ScreenUpdating = True
Sheets("Executar").Select
End Sub
Postado : 30/08/2016 2:40 pm