andersonandrade12 Sáb 26 Out 2013, 1:07 am
Tentei ver o seu arquivo XML para ver se poderia dar uma ajuda. Entretanto, seu link esta quebrado.
Se fosse NF-e, na forma como você descreveu seu arquivo, seria um arquivo de lote de processamento. Nesse caso, você teria uma tag 'nfeProc' cujo um dos filhos seria a tag 'NFe' que conteria os dados de suas notas fiscais.
Para ter acesso a uma lista de arquivos filhos você usaria um código como esse:
Dim arquivoXML As New MSXML2.DOMDocument60 'Estou usando MSXML2 versão 6.0 e é necessário referenciá-lo para inicializar o objeto
Dim node As IXMLDOMElement 'Instâncio o Nó
Dim nodelista As IXMLDOMNodeList 'Instâncio uma lista de nós
xmlDoc.loadXML "Caminho do seu arquivo xml" 'Carrega o arquivo com o método LoadXML
Set node = xmlDoc.selectSingleNode("nfeProc") 'Seto o nó usando o método selectSingleNode passando por parâmetro a tag pai
Set nodelista = node.getElementsByTagName("*") 'Obtenho a lista de todos os elementos filho
Depois disso você faria um laço para percorrer sua lista e implementaria a solução que você possui para apenas uma nota.
Estude os schemas xml e de uma olhada na Interface DOM XML (infelizmente em inglês).
Sucesso!