Importar arquivo Xml CT-e para Excel
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.
Olá, estou tentando importar os CTes e esta apresentando o seguinte erro: Erro em tempo de execução 91 – A variável do objeto ou variável do bloco “With” não foi definida.
Boa tarde!
Estou tentando utilizar a planilha, mas estou com dificuldades devido ao erro: “Erro em tempo de execução 13” tipos incompatíveis.
Poderia me ajudar!?
Como extrair os dados da observação?
‘criei uma variavel
Dim strxObs as string
‘criei uma TAG
For Each xmlNode In xmlDoc.getElementsByTagName(“compl/xObs”)
strxObs = xmlNode.SelectNodes(“xObs”)(0).Text
‘e coloquei onde quero que salva
shtXml.Cells(I, 71).Value = strxObs
Pingback: college essay writing service