Excel Vba

Importar arquivo Xml CT-e para Excel

Fabio Mitsueda 155 Comments

Nessa postagem vou disponibilizar um arquivo Excel que importa o Xml do CT-e (conhecimento de transporte eletrônico) utilizando código VBA.

Esse código tem a mesma estrutura do arquivo disponibilizado no link https://fabiomitsueda.com.br/importar-arquivo-xml-nf-e-para-excel/ para leitura de NF-e (Nota fiscal eletrônica), com adaptações feitas para atender o Manual de Orientação do Contribuinte, Anexo I – Leiaute do CT-e, Versão 3.00a – abril 2019.

O código VBA é desprotegido e pode ser adaptado a sua necessidade com pequenos ajustes, tentei comentar o máximo possível, mas caso tenham duvidas deixem nos comentários.

No arquivo que disponibilizei para leitura do xml da nf-e tiveram muitas duvidas e erros relacionados as referencias utilizadas no projeto, para evitar isso abaixo vou instruir como alterar as referencias usadas no projeto VBA.

Primeiro você precisa entrar no ambiente VBA, para isso clique na tecla Alt do seu teclado e com ela pressionada clicar na tecla F11, você também pode clicar na guia desenvolvedor > Visual Basic.

Será aberto o VBA, clique em Ferramentas depois em Referências…

Veja na imagem abaixo eu utilize a referencia Microsoft XML, v6.0, isso funciona perfeitamente para a minha versão do office, mas para sua versão pode não funcionar ai é necessário trocar, veja que abaixo existem a versão v3.0 e a v5.0, provavelmente elas não vão estar na sequencia e será preciso descer a barra de rolagem, você deve tirar a seleção da v6.0 e testar outras versões caso seu office apareça algum erro.

Coloquei alguns dados do CT-e de agrupados por Emitente, Tomador, Remetente, Expedidor, Recebedor e Destinatário, etc… Abra o arquivo e clique em Capturar XML,s

Ao clicar em Capturar XML’s será aberto um formulário conforme imagem abaixo, clique na pasta para escolher o caminho ou digite na caixa de texto depois clique em Executar, o arquivo irá ler todos os arquivos XML’s da pasta selecionada.

Clique aqui para baixar o arquivo.

155 thoughts on “Importar arquivo Xml CT-e para Excel”

Deixe uma resposta