Este fórum está sendo desativado

[BrunoLuiel]

Boa tarde Amigos. Eu criei este código para que em cada linha do excel seja extraídas algumas tags específicas de um arquivo XML, e ele me atende. No entanto, preciso conseguir importar de vários arquivos XMLs e não de apenas uma única nota, como é o caso deste.

Estou anexando 3 XMLs para testar.

Em Ferramentas/Referência/ marquei a opção Microsoft XML, v3.0
Sub IMPORTAR()
Dim XML As MSXML2.DOMDocument30
Set XML = New MSXML2.DOMDocument30
Dim Arquivo As Variant

Arquivo = Application.GetOpenFilename("")

If Not XML.Load(Arquivo) Then
Set XML = Nothing
End If

Dim L As Long
L = 1

Cells(1, 1) = XML.SelectSingleNode("//ide/nNF").Text
Cells(1, 2) = XML.SelectSingleNode("//ide/dhEmi").Text
Cells(1, 3) = XML.SelectSingleNode("//emit/xFant").Text
Cells(1, 4) = XML.SelectSingleNode("//dest/xNome").Text
Cells(1, 5) = XML.SelectSingleNode("//total/ICMSTot/vNF").Text
End sub