Ler vários .txt e preencher planilha

2024 - VBA & Macros

Post Recente por Anderson 4 anos atrás

2 Posts

2 Usuários

1 Reactions

1,158 Visualizações

RSS

guma.cojogra

(@guma-cojogra)

Posts: 7

Active Member

Topic starter

Fala pessoal

Preciso novamente da ajuda de vocês! Eu tenho a macro abaixo que lê um txt e separa por colunas.

Mas quero adaptar ela pra ela fazer isso com todos os txts de uma pasta.

as informações devem devem ficar todas numa mesma planilha uma abaixo da outra.

se alguém tiver algum exemplo que possa ajudar eu agradeço.

Public Sub ImportarTexto()
Dim Ficheiro As String
Ficheiro = "D:\DOCUMENTOS\Texto.txt"

Dim rg As Range
Set rg = Range("A1")

Open Ficheiro For Input As #1

Dim S As String
Do Until EOF(1)
Line Input #1, S

rg = Val(Left(S, 10))
rg.Offset(0, 1) = Mid(S, 2, 2)
rg.Offset(0, 2) = Mid(S, 4, 14)
rg.Offset(0, 3) = Mid(S, 18, 4)
rg.Offset(0, 4) = Mid(S, 22, 2)
rg.Offset(0, 5) = Mid(S, 24, 5)
rg.Offset(0, 6) = Mid(S, 29, 1)
rg.Offset(0, 7) = Mid(S, 30, 8)
rg.Offset(0, 8) = Mid(S, 38, 25)
rg.Offset(0, 9) = Mid(S, 63, 8)
rg.Offset(0, 10) = Mid(S, 71, 12)
rg.Offset(0, 11) = Mid(S, 83, 3)
rg.Offset(0, 12) = Mid(S, 86, 8)
rg.Offset(0, 13) = Mid(S, 94, 1)
rg.Offset(0, 14) = Mid(S, 95, 13)
rg.Offset(0, 15) = Mid(S, 108, 1)
rg.Offset(0, 16) = Mid(S, 109, 2)
rg.Offset(0, 17) = Mid(S, 111, 6)
rg.Offset(0, 18) = Mid(S, 117, 10)
rg.Offset(0, 19) = Mid(S, 127, 8)
rg.Offset(0, 20) = Mid(S, 135, 12)
rg.Offset(0, 21) = Mid(S, 147, 6)
rg.Offset(0, 22) = Mid(S, 153, 13)
rg.Offset(0, 23) = Mid(S, 166, 3)
rg.Offset(0, 24) = Mid(S, 169, 4)
rg.Offset(0, 25) = Mid(S, 173, 1)
rg.Offset(0, 26) = Mid(S, 174, 2)
rg.Offset(0, 27) = Mid(S, 176, 13)
rg.Offset(0, 28) = Mid(S, 189, 26)
rg.Offset(0, 29) = Mid(S, 215, 13)
rg.Offset(0, 30) = Mid(S, 228, 13)
rg.Offset(0, 31) = Mid(S, 241, 13)
rg.Offset(0, 32) = Mid(S, 254, 13)
rg.Offset(0, 33) = Mid(S, 267, 13)
rg.Offset(0, 34) = Mid(S, 280, 16)
rg.Offset(0, 35) = Mid(S, 296, 6)
rg.Offset(0, 36) = Mid(S, 302, 4)
rg.Offset(0, 37) = Mid(S, 306, 19)
rg.Offset(0, 38) = Mid(S, 325, 30)
rg.Offset(0, 39) = Mid(S, 355, 23)
rg.Offset(0, 40) = Mid(S, 378, 8)
rg.Offset(0, 41) = Mid(S, 386, 7)
rg.Offset(0, 42) = Mid(S, 393, 2)
rg.Offset(0, 43) = Mid(S, 395, 6)



Set rg = rg.Offset(1, 0)
Loop

Close #1
End Sub