Página 2 de 2

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Ter Jun 18, 2019 3:10 pm
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.

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Ter Jun 18, 2019 5:54 pm
por Julio Mangilli
Opa, magina Reinaldo e agradeço pelo retorno.

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Qua Jun 19, 2019 1:38 pm
por Reinaldo
Experimente, teste

Re:[RESOLVIDO] EXPORTAR TXT EXCEL SPED FISCAL

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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Seg Jun 24, 2019 10:22 am
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.

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Qui Mar 26, 2020 10:16 am
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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Qui Mar 26, 2020 3:21 pm
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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Sex Mar 27, 2020 8:49 am
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!

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Ter Mar 31, 2020 12:12 pm
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

Re: EXPORTAR TXT EXCEL SPED FISCAL

Enviado: Qui Abr 02, 2020 2:20 pm
por Reinaldo
Demanda de AndersonDorneles dada como atendida em http://www.planilhando.com.br/forum/vie ... 10&t=32953