Página 1 de 1
Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 15:23
por DavisonDiego
Boa tarde pessoal
Gostaria de um auxilio de vocês, tenho um arquivo Sped Fiscal, o mesmo é TXT e separado por "|" consigo importa-ló para o excel o problema meu é o seguinte na hora de exportar para o txt novamente, pois quando vou exporta-lo ele perde a estrutura do arquivo, porque quando escolho a opção para exportar com ponto e virgula ele preenche em branco os campos com ";", por exemplo a linha do arquivo tem os seguintes dados:
|0110|1|1|1||
|0140|1|SUPERMERCADO|07443593000196|MG|7073469140038|3170701|||
|0150|236|CEMIG DISTRIBUICAO S/A|1058|06981180010116||0623211360087|3106200||AV. BARBACENA||||
Quando o arquivo é importado ele é importado corretamente, porém na hora de exportar ele está preenchendo com espaços em branco a 1ª linha conforme abaixo, pois quando exporto estou escolhendo a opção csv ponto e virgula e depois no bloco de notas substituo os ";" por "|":
0110|1|1|1||||||
0140|1|SUPERMERCADO|07443593000196|MG|7073469140038|3170701|||
0150|236|CEMIG DISTRIBUICAO S/A|1058|06981180010116||0623211360087|3106200||AV. BARBACENA
Se alguém já passou por isso encontraram uma outra maneira de exportar?
Desde já agradeço a atenção
Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 15:32
por laennder
Davison, tudo bem?
Se você puder anexar um modelo da sua planilha e do arquivo. Facilita na hora de tentar criar uma solução.
Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 15:42
por DavisonDiego
Boa tarde Laennder
Segue em anexo
Obrigado pela ajuda
Re: Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 17:17
por alexandrevba
Boa tarde!!
Uma forma seria:
http://www.howtogeek.com/howto/21456/ex ... of-commas/
Eu ainda não testei.
Att
Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 17:49
por DavisonDiego
Boa tarde Alexandre já até tentei desta forma mas o problema é que o layout do arquivo não coincide de ter coluna com coluna é tipo assim para cada tipo de bloco do arquivo tem os campos específicos então está acontecendo como na 1ª linha ter somente 3 campos e na segunda ter 10 e como o segundo campo tem 10 o excel está exportando mais 7 campos em branco para a primeira linha como o exemplo abaixo:
|0110|1|1|1||
|0140|1|SUPERMERCADO|07443593000196|MG|7073469140038|3170701|||
|0150|236|CEMIG DISTRIBUICAO S/A|1058|06981180010116||0623211360087|3106200||AV. BARBACENA||||
Exportado
0110|1|1|1||||||
0140|1|SUPERMERCADO|07443593000196|MG|7073469140038|3170701|||
0150|236|CEMIG DISTRIBUICAO S/A|1058|06981180010116||0623211360087|3106200||AV. BARBACENA
Exportar TXT Excel Sped Fiscal
Enviado: 13 Abr 2015 às 22:07
por laennder
Davison, isso ocorre porque o Excel exporta uma área retangular.
Dá pra criar uma macro pra fazer o que você quer, mas somente se existir um padrão. Por exemplo, Sempre a primeira linha tem 5 campos, a segunda e terceira tem 8, etc... Ou, a cada 10 linhas, a linha possui 3 campos, as demais linhas possui 6 campos.
Se existir esse padrão, informe qual é, para facilitar.
Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 08:20
por DavisonDiego
Bom dia Laennder o padrão até existe o problema é que são muitos registros e cada um tem um padrão especifico acho que se fosse fazer desta maneira ia demorar muito tempo para criar a macro, mas de qualquer forma agradeço sua atenção
Re: Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 09:05
por alexandrevba
Bom dia!!
Tenta essa macro.
Código: Selecionar todosSub ExpExcelTxt()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim DataTextStr As String
ListSep = "|"
Set SrcRg = ActiveSheet.UsedRange
Open "C:\Users\alexandreVBA\Downloads\ArqExp.txt" For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ""
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & CurrCell.Value & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
CurrTextStr = CurrTextStr & ListSep
Print #1, CurrTextStr
Next
Close #1
End Sub
favor mudar o local onde deseja salvar o arquivo exportado!
Código: Selecionar todosOpen "C:\Users\alexandreVBA\Downloads\ArqExp.txt" For Output As #1
Att
Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 10:00
por DavisonDiego
Bom dia Alexandre a sua macro ficou muito bom vai me ajudar muito só notei um erro na exportação que foi na questão do primeiro "|" no começo do layout conforme abaixo teria como colocar um "|" no começo?
|0000|003|0|||01022015|28022015|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|3170701||00|9|
|0001|0|
|0100|VERDI LUCIO MELO|19237138687|32591||37062300|RUA RAMIRO REZENDE|15||REZENDE|3532144647||
contato@verdicontabilidade.com.br|3170701|
|0110|2||1||
|0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|7073688320086|3170701|||
Exportado:
0000|003|0|||01022015|28022015|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|3170701||00|9|
0001|0|
0100|VERDI LUCIO MELO|19237138687|32591||37062300|RUA RAMIRO REZENDE|15||REZENDE|3532144647||
contato@verdicontabilidade.com.br|3170701|
0110|2||1|
0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|7073688320086|3170701|
desde já agradeço sua atenção
Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 10:16
por DavisonDiego
Bom dia Alexandre teve um outro campo que desconfigurou tbm foi nesta linha:
Original:
|0110|2||1||
|0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|7073688320086|3170701|||
Exportado:
0110|2||1|
0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553000141|MG|7073688320086|3170701|
Re: Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 10:55
por alexandrevba
Bom dia!!
Veja se essa linha ajuda
No lugar de
Use....
Att
Re: Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 11:03
por laennder
Como a solução se deu em VBA, movi o tópico para a categoria Macros e VBA
Exportar TXT Excel Sped Fiscal
Enviado: 14 Abr 2015 às 13:32
por DavisonDiego
Bom dia Alexandre o 1º campo deu certo agora teve um outro campo que desconfigurou também foi no último campo tem como acertar este campo? pois ele é um campo em branco no arquivo original:
Original:
|0110|2||1||
|0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553100141|MG|7073688310086|3170701|||
Exportado:
|0110|2||1|
|0140|285|PALA MATERIAIS PARA CONSTRUCAO LTDA ME|07538553100141|MG|7073688310086|3170701|
Agradeço desde já
Exportar TXT Excel Sped Fiscal
Enviado: 15 Abr 2015 às 10:00
por laennder
Todas as linhas vão ter esse campo em branco no final?
Exportar TXT Excel Sped Fiscal
Enviado: 15 Abr 2015 às 11:31
por DavisonDiego
Bom dia Laenner
a maioria sim porque funciona o seguinte
cada registro tem seu nº de campos especificos as vezes nem todos são obrigatórios serem preenchidos pode ser que uma linha contenha 3 campos e branco no final e outro cinco isso pode variar segue em anexo um arquivo para você ter uma ideia
Obrigado
Exportar TXT Excel Sped Fiscal
Enviado: 15 Abr 2015 às 17:11
por laennder
Mas aí volta lá pro que eu disse antes. Tem que especificar qual é o padrão. Quantos campos tem cada tipo de registro?
O Excel exporta no formato retangular, considerando em branco os campos vazios nessa região. Ou a macro do Alexandre verifica até onde tem dados preenchidos para criar o TXT.
Especifica o seguinte, por exemplo: Registros D001 tem X campos, registros D100 tem Y campos, que ai dá pra configurar a macro.
Exportar TXT Excel Sped Fiscal
Enviado: 15 Abr 2015 às 17:40
por DavisonDiego
Boa tarde Laenner o problema é o seguinte o Layout do arquivo é muito grande tem mais de 100 blocos com diferentes tamanhos cada 1 a macro que o Alexandre criou quase deu certo só deu erro no final os campos que estava em branco teve campo que ficou faltando gerar um pipe da uma olhada no código que ele me passou por gentileza quase deu certo use esse arquivo que te passei que você vai ver acho que a terceira aparece um erro desse.
Agradeço desde já sua atenção
Obrigado
Re: Exportar TXT Excel Sped Fiscal
Enviado: 16 Abr 2015 às 11:54
por laennder
Davison, criei um arquivo para importar e exportar os dados.
Ao abrir o arquivo em anexo, perceba que na Faixa de Opções irá aparecer uma nova guia.
Clique em importar e selecione o arquivo que deseja trabalhar. Ao importar, os dados serão colocados na planilha. Note que a Coluna A ficará oculta, pois é nela que está salvo a quantidade de campos que possui o registro (útil na hora de salvar)
Depois é só clicar em salvar, e escolher onde deseja salvar o novo arquivo. Acho que agora irá atender ao que deseja.
Exportar TXT Excel Sped Fiscal
Enviado: 16 Abr 2015 às 13:49
por DavisonDiego
Boa tarde Laennder e Alexandre agora ficou show de bola não imagina quanto me ajudou.
Muito obrigado
Exportar TXT Excel Sped Fiscal
Enviado: 16 Abr 2015 às 13:57
por laennder
Davison, se a resposta resolveu a dúvida, favor clicar no botão "Marcar Resolvido".
Grato.