Cómo CREAR tu programa Visor de XML o CFDI en EXCEL скачать в хорошем качестве

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