Para crear la Cadena Original de un XML usando la XSLT proporcionada por el SAT en VBA debes hacer lo siguiente:
- Agregar a las referencias: «Microsoft XML, v3.0» (o 6.0)
- Usar el siguiente código:
Function getCadenaOriginal() Dim oXSlT As New DOMDocument Dim xXML As New DOMDocument Dim sCadenaOriginal As String oXSlT.Load "D:\proyectos\cadenaoriginal_3_2.xslt" xXML.Load "D:\Proyectos\util\F.xml" sCadenaOriginal = xXML.transformNode(oXSlT) Debug.Print sCadenaOriginal End Function
Esto te devolverá la cadena original generada a partir de un XML.
Recuerda que debes tener un XML ya timbrado, y el archivo «cadenaoriginal_3_2.xslt» que lo puedes descargar desde el SAT.
Hola muy buen post! te felicito