Macro Excel para Leer XML de factura electronica Colombia

Macro Excel para Leer XML de factura electronica Colombia

   25 mayo       Luis Reyes

---

 Hola estimados lectores, por lo regular comparto herramientas para contadores de México, pero  el día de hoy les voy a compartir una macro, que quizás a los contadores de Colombia les pueda interesar, es una macro (Función) para leer los XML de la factura electrónica colombiana. 

Function LeerComprobante(Ruta As String, Dato As String)
   Set oXMLFile = CreateObject("Microsoft.XMLDOM")
    oXMLFile.Load (Ruta)
    Set Invoice = oXMLFile.SelectNodes(Dato)
      On Error Resume Next
        For i = 0 To Invoice.Length - 1
            For j = 0 To Invoice(i).ChildNodes.Length - 1
            LeerComprobante = Invoice(i).ChildNodes(j).Text
            Next
        Next
End Function

      

Esta función necesita dos argumentos obligatorios:

Ruta (es donde se encuentra almacenado el XML)

Nodo (el nodo del que queremos extraer la información)

Descarga el Archivo

Si te fue útil, deja tu comentario y no olvides compartir en tus redes sociales.