Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

EXPORTAR TXT EXCEL SPED FISCAL

Dúvidas gerais sobre Excel
Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1345
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 » Ter Jun 18, 2019 3:10 pm

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.


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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 » Ter Jun 18, 2019 5:54 pm

Opa, magina Reinaldo e agradeço pelo retorno.



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1345
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 » Qua Jun 19, 2019 1:38 pm

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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 » Qua Jun 19, 2019 3:59 pm

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: 1122
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por Mikel Silveira Fraga » Seg Jun 24, 2019 10:22 am

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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles » Qui Mar 26, 2020 10:16 am

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: 1345
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 » 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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles » Sex Mar 27, 2020 8:49 am

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



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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Mensagem por AndersonDorneles » Ter Mar 31, 2020 12:12 pm

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 7087 vezes



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1345
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 » Qui Abr 02, 2020 2:20 pm

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


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

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