Cómo CREAR tu programa Visor de XML o CFDI en EXCEL

Описание: Crearemos las funciones EMISOR, RECEPTOR, UUID e IVA y crearemos una Macro para cargar masivamente nuestros XML o CFDI a EXCEL.

Private documentoxml As MSXML2.DOMDocument
Private listanodos As MSXML2.IXMLDOMNodeList
Private nodo As MSXML2.IXMLDOMNode


Function CARGA(ruta)
Set documentoxml = New DOMDocument
documentoxml.Load (ruta)
End Function

Function COMPROBANTE(ruta, dato)
CARGA (ruta)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante")
For Each nodo In listanodos
COMPROBANTE = nodo.Attributes.getNamedItem(dato).Text
Next
End Function

Function EMISOR(ruta, dato)
CARGA (ruta)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante/cfdi:Emisor")
For Each nodo In listanodos
EMISOR = nodo.Attributes.getNamedItem(dato).Text
Next
End Function

Function RECEPTOR(ruta, dato)
CARGA (ruta)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante/cfdi:Receptor")
For Each nodo In listanodos
RECEPTOR = nodo.Attributes.getNamedItem(dato).Text
Next
End Function

Function UUID(ruta, dato)
CARGA (ruta)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital")
For Each nodo In listanodos
UUID = nodo.Attributes.getNamedItem(dato).Text
Next
End Function

Function IVA(ruta, dato)
CARGA (ruta)
Set listanodos = documentoxml.SelectNodes("/cfdi:Comprobante/cfdi:Impuestos/cfdi:Traslados/cfdi:Traslado")
For Each nodo In listanodos
IVA = nodo.Attributes.getNamedItem(dato).Text
Next
End Function


Sub DESCARGAR()
Dim dg As FileDialog
Range("A3").Select
Set dg = Application.FileDialog(msoFileDialogFilePicker)
Dim archivo As Variant
With dg
If .Show = -1 Then
For Each archivo In .SelectedItems
ActiveCell.Value = archivo
ActiveCell.Cells(2, 1).Select
Next archivo
End If

End With
Set dg = Nothing
End Sub