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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 importar varios txt - dados em linhas sem separacao

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
hjlsilva



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

MensagemAssunto: importar varios txt - dados em linhas sem separacao   Seg 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

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

Bom dia!

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


Att bounce 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hjlsilva



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

MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hjlsilva



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

MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
hjlsilva



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

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

ola

podem ajudar

humberto
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: importar varios txt - dados em linhas sem separacao   Hoje à(s) 10:49 pm

Voltar ao Topo Ir em baixo
 
importar varios txt - dados em linhas sem separacao
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Dúvida] Como importar strings de um arquivo .txt
» Importar Dados Do Excel Para o Access - DAO
» Linhas Diagonais
» [Tutorial] Game genérico
» Como criar base de dados?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: