Vídeo recomendado
https://youtu.be/diWPPPhW-9E

EXPORTAR TXT EXCEL SPED FISCAL

Dúvidas gerais sobre Excel
Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por Julio Mangilli »

Opa, magina Reinaldo e agradeço pelo retorno.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Experimente, teste
Anexos
Modelo Teste.zip
(25.61 KiB) Baixado 524 vezes


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re:[RESOLVIDO] EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por Julio Mangilli »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por Mikel Silveira Fraga »

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.


AndersonDorneles
Colaborador
Colaborador
Mensagens: 21
Registrado em: Ter Mai 03, 2011 7:58 am

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles »

Reinaldo escreveu: Qua Jun 19, 2019 1:38 pm Experimente, teste
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


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva
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


AndersonDorneles
Colaborador
Colaborador
Mensagens: 21
Registrado em: Ter Mai 03, 2011 7:58 am

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles »

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 +/- 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
Olá Bom dia

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
Exemplo do Complemento Excel
erro_ler_xml_1.jpg (155.09 KiB) Exibido 12915 vezes
Erro ao Importar SPED
Erro ao Importar SPED
erro_importar_SPED.jpg (221.25 KiB) Exibido 12915 vezes


AndersonDorneles
Colaborador
Colaborador
Mensagens: 21
Registrado em: Ter Mai 03, 2011 7:58 am

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles »

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 +/- 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
Olá,
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
erro_sped.jpg (260.29 KiB) Exibido 12601 vezes


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

Demanda de AndersonDorneles dada como atendida em http://www.planilhando.com.br/forum/vie ... 10&t=32953


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder