bom dia
sou muito inesperiente, precisava de ajuda para importar dados de varios ficheiro txt para a mesma excel
tenho o codigo abaixo, mas precisava:
1 - comecar a importar as linhas que iniciam com o numero 6 (linhas de detalhe)
2 -Os numeros importados (como na linha não separa os decimais) dividir por 100
agradeço a vossa ajuda
Sub ImportarTXT()
Dim Pasta As String
Dim Arquivo As String
Dim Linha As String
Dim i As Long
Pasta = "Z:\FGO\IRS-RETENCAOFONTE\2013\DRM\DRM_ANO\"
Arquivo = Dir(Pasta & "*.txt")
i = 2
Do
Open Pasta & Arquivo For Input As #1
While Not (EOF(1))
Line Input #1, Linha
Cells(i, "A").Value = Mid(Linha, 1, 3)
Cells(i, "B").Value = Mid(Linha, 4, 7)
Cells(i, "C").Value = Mid(Linha, 11, 9)
Cells(i, "D").Value = Mid(Linha, 20, 14)
Cells(i, "E").Value = Mid(Linha, 34, 4)
Cells(i, "F").Value = Mid(Linha, 38, 14)
Cells(i, "G").Value = Mid(Linha, 52, 3)
Cells(i, "H").Value = Mid(Linha, 55, 2)
Cells(i, "I").Value = Mid(Linha, 57, 13)
Cells(i, "J").Value = Mid(Linha, 70, 13)
Cells(i, "K").Value = Mid(Linha, 83, 9)
Cells(i, "L").Value = Mid(Linha, 92, 9)
Cells(i, "M").Value = Mid(Linha, 101, 9)
Cells(i, "N").Value = Mid(Linha, 110, 13)
Cells(i, "O").Value = Mid(Linha, 123, 13)
Cells(i, "P").Value = Arquivo
i = i + 1
Wend
Close
Arquivo = Dir
Loop While Arquivo <> ""
End Sub