Importar XML do Siscomex

[Randerson Vieira]

AMIGOS,bom dia!

Tenho um conhecimento superficial e desenvolvo pequenos trabalhos em vba e agora tentei desenvolver alguma instrução que permita ler um arquivo XML e coletar os dados de algumas tag’s e popular nas células da planilha. “Não conseguir”
Alguém poderia me ajudar com essa rotina que leia as tags: numero, data-situacao, nome-situacao, (orgao-anuente, nome-situacao-anuencia) sendo que esses já estão em um outro nível ou lista.

A tag li-simplificada se repete até 1000 registros.

Segue o Codigo XML

<?xml version=”1.0″ encoding=”UTF-8″ ?>
<resposta-consulta-li versao=”1.0″ xmlns=”http://www.serpro.gov.br/liweb/schema/ResultadoConsultaLoteLiWeb.html&#8221; xmlns:xsi=”http://www.w3.org/2001/XMLSchema-instance&#8221; xsi:schemaLocation=”http://www.serpro.gov.br/liweb/schema/ResultadoConsultaLoteLiWeb.html ResultadoConsultaLoteLiWeb.xsd”>
<identificador-consulta>RET_CONS_LI</identificador-consulta>
<lista-mensagens-e-erros/>
<lista-li-simplificada>
<li-simplificada>
<numero>19/326598257-2</numero>
<data-registro>03/10/2019</data-registro>
<hora-registro>17:14:27</hora-registro>
<data-situacao>03/10/2019</data-situacao>
<hora-situacao>17:14:27</hora-situacao>
<codigo-situacao>01</codigo-situacao>
<nome-situacao>PARA ANALISE</nome-situacao>
<data-restricao-embarque/>
<data-validade-embarque/>
<data-validade-despacho/>
<numero-li-substituida>19/3103340-9</numero-li-substituida>
<numero-li-substitutiva/>
<lista-anuencias>
<anuencia>
<orgao-anuente>DECEX</orgao-anuente>
<codigo-situacao-anuencia>05</codigo-situacao-anuencia>
<nome-situacao-anuencia>DEFERIDA</nome-situacao-anuencia>
</anuencia>
<anuencia>
<orgao-anuente>INMETRO</orgao-anuente>
<codigo-situacao-anuencia>01</codigo-situacao-anuencia>
<nome-situacao-anuencia>PARA ANALISE</nome-situacao-anuencia>
</anuencia>
<anuencia>
<orgao-anuente>SUFRAMA</orgao-anuente>
<codigo-situacao-anuencia>05</codigo-situacao-anuencia>
<nome-situacao-anuencia>DEFERIDA</nome-situacao-anuencia>
</anuencia>
</lista-anuencias>
</li-simplificada>
<li-simplificada>
….
</li-simplificada>
<li-simplificada>
….
</li-simplificada>
</lista-li-simplificada>
</resposta-consulta-li>

Tentei apreender com o tópico como “Importar arquivo Xml NF-e para Excel” mas não conseguir.

Um abraço a todos.

[Fabio Mitsueda]

Boa noite,

Na postagem vi que seu código não esta funcionando, o que pode ser são as referencias do seu projeto, entre no VBA Project depois em Ferramentas…>Referencia e procure por Microsoft XML, v6.0 ou v5.0 ou outra referencia disponível na sua biblioteca.

Utilizando o mesmo aquivo da postagem só substituir a função abaixo:

Visual Basic

Sub LerXml(ByVal strFolderPath As String) 'Declaração de variaveis de objeto para leitura do XML Dim xmlDoc As DOMDocument Dim xmlList As IXMLDOMNodeList Dim xmlNode As IXMLDOMNode 'Declaração de variaveis diversas para o código Dim shtXml As Worksheet Dim strXml As String Dim x, y, i As Long Dim objPasta As FileDialog 'Declaração de variaveis de retorno do XML Dim strNumerII As String Dim strDtaSitu As String Dim strNomSitu As String 'Carregando Planilha Set shtXml = ThisWorkbook.Sheets("LerXml") 'Atribuindo caminho do arquivo a variavel strXml = strFolderPath 'Carregando o objeto que irá representar o documento XML Set xmlDoc = New DOMDocument 'Carregando o arquivo xmlDoc.Load (strXml) 'Capturando a ultima linha da planilha i = shtXml.Range("A1048576").End(xlUp).Row + 1 'Aqui vamos iniciar a ler os produtos da nota fiscal e carregar as linhas no excel conforme esses produtos Set xmlList = xmlDoc.getElementsByTagName("li-simplificada") For Each xmlNode In xmlList 'Capturando dados do xml strNumerII = GetNodeValue(xmlNode, "numero-li") strDtaSitu = GetNodeValue(xmlNode, "data-situacao") strNomSitu = GetNodeValue(xmlNode, "nome-situacao") 'Carregando informações na planilha shtXml.Cells(i, 1).Value = strNumerII shtXml.Cells(i, 2).Value = strDtaSitu shtXml.Cells(i, 3).Value = strNomSitu 'Incrementando a linha i = i + 1 Next Set shtXml = Nothing Set xmlList = Nothing Set xmlNode = Nothing Set xmlDoc = Nothing End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Sub LerXml(ByVal strFolderPath As String) 'Declaração de variaveis de objeto para leitura do XML Dim xmlDoc As DOMDocument Dim xmlList As IXMLDOMNodeList Dim xmlNode As IXMLDOMNode   'Declaração de variaveis diversas para o código Dim shtXml As Worksheet Dim strXml As String Dim x, y, i As Long Dim objPasta As FileDialog   'Declaração de variaveis de retorno do XML Dim strNumerII As String Dim strDtaSitu As String Dim strNomSitu As String   'Carregando Planilha Set shtXml = ThisWorkbook.Sheets("LerXml")   'Atribuindo caminho do arquivo a variavel strXml = strFolderPath   'Carregando o objeto que irá representar o documento XML Set xmlDoc = New DOMDocument   'Carregando o arquivo xmlDoc.Load (strXml)   'Capturando a ultima linha da planilha i = shtXml.Range("A1048576").End(xlUp).Row + 1   'Aqui vamos iniciar a ler os produtos da nota fiscal e carregar as linhas no excel conforme esses produtos Set xmlList = xmlDoc.getElementsByTagName("li-simplificada") For Each xmlNode In xmlList 'Capturando dados do xml strNumerII = GetNodeValue(xmlNode, "numero-li") strDtaSitu = GetNodeValue(xmlNode, "data-situacao") strNomSitu = GetNodeValue(xmlNode, "nome-situacao")   'Carregando informações na planilha shtXml.Cells(i, 1).Value = strNumerII shtXml.Cells(i, 2).Value = strDtaSitu shtXml.Cells(i, 3).Value = strNomSitu   'Incrementando a linha i = i + 1 Next   Set shtXml = Nothing Set xmlList = Nothing Set xmlNode = Nothing Set xmlDoc = Nothing End Sub

 

[Autor]

Posts