Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
EXPORTAR TXT EXCEL SPED FISCAL
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: EXPORTAR TXT EXCEL SPED FISCAL
Putzzz!!! Sabia que havia esquecido algo. Desculpe.
Jeito tem, masss (sempre tem um...) estava com a rotina quase pronta, quando uma repentina falta de luz (bendita CPFL) a perdi ,bem como vários outro trabalhos. Agora e esperar outra janela temporal, que volto (espero) ao seu arquivo.
Jeito tem, masss (sempre tem um...) estava com a rotina quase pronta, quando uma repentina falta de luz (bendita CPFL) a perdi ,bem como vários outro trabalhos. Agora e esperar outra janela temporal, que volto (espero) ao seu arquivo.
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: EXPORTAR TXT EXCEL SPED FISCAL
Experimente, teste
- Anexos
-
- Modelo Teste.zip
- (25.61 KiB) Baixado 525 vezes
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re:[RESOLVIDO] EXPORTAR TXT EXCEL SPED FISCAL
Olá Reinaldo,
Incrível, te agradeço pela grande ajuda, isso já vai me ajudar de uma forma incrível.
Muito Obrigado pela Força.
Incrível, te agradeço pela grande ajuda, isso já vai me ajudar de uma forma incrível.
Muito Obrigado pela Força.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: EXPORTAR TXT EXCEL SPED FISCAL
Bom dia a todos.
Meus amigos Reinaldo e Julio Mangilli, vendo a discussão deste tópico, fiz uma busca e encontrei algo bem interessante que podem ajudá-los.
https://www.youtube.com/watch?v=dtOzj74HNvk
Espero que esse vídeo possam ajudar.
Abraços.
Meus amigos Reinaldo e Julio Mangilli, vendo a discussão deste tópico, fiz uma busca e encontrei algo bem interessante que podem ajudá-los.
https://www.youtube.com/watch?v=dtOzj74HNvk
Espero que esse vídeo possam ajudar.
Abraços.
-
- Colaborador
- Mensagens: 21
- Registrado em: Ter Mai 03, 2011 7:58 am
Re: EXPORTAR TXT EXCEL SPED FISCAL
Olá bom dia.
Baixei sua planilha, testei e ela resolve meu problema em parte. Com base na sua planilha, como eu faria pra pegar os dados do SPED só do campo C100 ?
DEsde já agradeço
Anderson S. Dorneles
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: EXPORTAR TXT EXCEL SPED FISCAL
Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva
algo +/- assim
algo +/- assim
Código: Selecionar todos
Do While Not EOF(1)
Line Input #1, strLinhaTexto
vrTemp = Split(strLinhaTexto, "|")
If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado
If ExisteSheet(vrTemp(1)) = True Then
incluinaplan (vrTemp(1))
Else
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = vrTemp(1)
incluinaplan (vrTemp(1))
End If
End If
Loop
-
- Colaborador
- Mensagens: 21
- Registrado em: Ter Mai 03, 2011 7:58 am
Re: EXPORTAR TXT EXCEL SPED FISCAL
Olá Bom diaReinaldo escreveu: ↑Qui Mar 26, 2020 3:21 pm Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva
algo +/- assimCódigo: Selecionar todos
Do While Not EOF(1) Line Input #1, strLinhaTexto vrTemp = Split(strLinhaTexto, "|") If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado If ExisteSheet(vrTemp(1)) = True Then incluinaplan (vrTemp(1)) Else Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = vrTemp(1) incluinaplan (vrTemp(1)) End If End If Loop
Obrigado por se dispor a me ajudar.
Funcionou, ele me trouxe só o campo C100, mas ao final deu um erro "Subscrito fora do intervalo" na linha da imagem anexa. O código anterior onde pegava todos os campos do SPED tb funcionava a mesma forma, importava todos os campos, mas dava esse erro tb, o mesmo. Eu estou tentando implementar um monte de ferramentas para o auxilio de auditoria fiscal, e estou colocando os codigos dentro de um complemento do Excel (Conforme imagem anexa), alguns códigos ao colocar no complemento, dão erro, em suas planilhas normais, funcionam. Vou testar esse seu codigo tb dentro do complemento, pra ver o comportamento.
Desde já agradeço!
- Anexos
-
- Exemplo do Complemento Excel
- erro_ler_xml_1.jpg (155.09 KiB) Exibido 12920 vezes
-
- Erro ao Importar SPED
- erro_importar_SPED.jpg (221.25 KiB) Exibido 12920 vezes
-
- Colaborador
- Mensagens: 21
- Registrado em: Ter Mai 03, 2011 7:58 am
Re: EXPORTAR TXT EXCEL SPED FISCAL
Olá,Reinaldo escreveu: ↑Qui Mar 26, 2020 3:21 pm Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva
algo +/- assimCódigo: Selecionar todos
Do While Not EOF(1) Line Input #1, strLinhaTexto vrTemp = Split(strLinhaTexto, "|") If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado If ExisteSheet(vrTemp(1)) = True Then incluinaplan (vrTemp(1)) Else Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = vrTemp(1) incluinaplan (vrTemp(1)) End If End If Loop
Descobri por que da o erro "Subscrito fora do Intervalo". É por que após o ultimo item (conta) no SPED, tem um "lixo" no arquivo (conforme imagem anexa) e o código fica tentando ler ela e agrupar nas planilhas. Tem como setar o codigo pra ler só até a ultima conta, ou até o ulimo limitador "I" ?
Desde já agradeço novamente.
Att,
Anderson S. Dorneles
- Anexos
-
- erro_sped.jpg (260.29 KiB) Exibido 12606 vezes
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: EXPORTAR TXT EXCEL SPED FISCAL
Demanda de AndersonDorneles dada como atendida em http://www.planilhando.com.br/forum/vie ... 10&t=32953