Importar XML do Siscomex

[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