Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 importar varios txt - dados em linhas sem separacao

Ir para baixo 
2 participantes
AutorMensagem
hjlsilva




Mensagens : 4
Data de inscrição : 17/03/2014

importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao EmptySeg Mar 17, 2014 3:28 pm

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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao EmptyTer Mar 18, 2014 4:37 pm

Bom dia!

Talvez, se eu poder ajudar, eu precisaria ver seu arquivo modelo.


Att bounce 
Ir para o topo Ir para baixo
hjlsilva




Mensagens : 4
Data de inscrição : 17/03/2014

importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao EmptyQua Mar 19, 2014 2:41 am

ola agradecia

segue algumas linhas que esta dentro do txt, (o numero de linhas é variavel)
002DMR-AT501419926201302EUR
00307281000000000171493311158022238
004000000004374266000000002024000000000047932700000000000000000000000128000000000000000000000000000000000000000000000000000000000000000000000000
005000000000424987000000000000000000000000000000000000000000000000000000000000000004799253000000000202400000000000479327000000000000000000000000012800
006000000113365554700000000000000000000000000061000A C 0000000003000000000000671050071550500000000000000000000000000000000000000000000
006000000213365554700000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000000315992068000000000000000000000000000185123A C 0000000039400000000002036350071550500000000000000000000000000000000000000002300
006000000415992068000000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000000514022477700000000000000000000000000103458A C 0000000011700000000001138050071550500000000000000000000000000000000000000000800
006000000614022477700000000000000000000000000002290A23C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000000714022477700000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000000817198947300000000000000000000000000108333A C 0000000014500000000001007550071550500000000000000000000000000000000000000001000
006000000919089411300000000000000000000000000053000A C 0000000000000000000000583050071550500000000000000000000000000000000000000000000
006000001019089411300000000000000000000000000006500A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000001113189614800000000000000000000000000060000A C 0000000001800000000000660050071550500000000000000000000000000000000000000000100
006000001213189614800000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000001318431276000000000000000000000000000075833A C 0000000004000000000000834250071550500000000000000000000000000000000000000000300
006000001418431276000000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000001514073971800000000000000000000000000102917A C 0000000012600000000001132150071550500000000000000000000000000000000000000000800
006000001614073971800000000000000000000000000002290A23C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000001714073971800000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000001818180694000000000000000000000000000060000A C 0000000002400000000000660050071550500000000000000000000000000000000000000000000
006000001918180694000000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
006000002017176003400000000000000000000000000055000A C 0000000000000000000000605050071550500000000000000000000000000000000000000000000
006000002117176003400000000000000000000000000008540A21C 0000000000000000000000000000000000000000000000000000000000000000000000000000000
00900000000000000000000000047992530000000002024000000000004793270000000000000000000000000128000000129
099000000131
999000000133

as linhas de detalhe começam pelo"006", aqui aparece cortada

cumprimentos
Ir para o topo Ir para baixo
hjlsilva




Mensagens : 4
Data de inscrição : 17/03/2014

importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao EmptyQua Mar 19, 2014 2:45 am

mais uma coisa

as linhas de detalhe tem todas o mesmo numero de carateres, apesar de aqui não parecer

as delimitacao dos campos são aqueles que coloquei na macro que enviei no 1º post

humberto
Ir para o topo Ir para baixo
hjlsilva




Mensagens : 4
Data de inscrição : 17/03/2014

importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao EmptySex Mar 21, 2014 1:57 am

ola

podem ajudar

humberto
Ir para o topo Ir para baixo
Conteúdo patrocinado





importar varios txt - dados em linhas sem separacao Empty
MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   importar varios txt - dados em linhas sem separacao Empty

Ir para o topo Ir para baixo
 
importar varios txt - dados em linhas sem separacao
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» importar txt e manter dados
» Importar base de dados de uma página WEB
»  problema ao importar dados externos da web
» Importar Dados de sub-pasta com diversas condições
» INSERÇÃO DADOS ALTERNANDO LINHAS

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: