Access - Extraer en un XML datos de tablas

Private Sub btnExportarXML_Click()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim xmlFile As Object

    ' Ruta y nombre del archivo XML de salida

    Dim outputFile As String

    outputFile = "ruta\archivo.xml"

    ' Crear un objeto de archivo XML

    Set xmlFile = CreateObject("Microsoft.XMLDOM")

    ' Crear el documento XML y el nodo raíz

    xmlFile.appendChild xmlFile.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")

    Dim rootNode As Object

    Set rootNode = xmlFile.createElement("articulos")

    xmlFile.appendChild rootNode

    ' Abrir la tabla o consulta que contiene los datos a exportar

    Set db = CurrentDb

    Set rs = db.OpenRecordset("SELECT REFERENCIA, DESCRIPCION FROM ARTICULO")

    ' Recorrer los registros y crear los nodos para cada artículo

    While Not rs.EOF

        Dim articuloNode As Object

        Set articuloNode = xmlFile.createElement("articulo")

        Dim referenciaNode As Object

        Set referenciaNode = xmlFile.createElement("referencia")

        referenciaNode.appendChild xmlFile.createTextNode(rs("REFERENCIA"))

        articuloNode.appendChild referenciaNode

        Dim descripcionNode As Object

        Set descripcionNode = xmlFile.createElement("descripcion")

        descripcionNode.appendChild xmlFile.createTextNode(rs("DESCRIPCION"))

        articuloNode.appendChild descripcionNode

        rootNode.appendChild articuloNode

        rs.MoveNext

    Wend

    rs.Close

    Set rs = Nothing

    Set db = Nothing

    ' Guardar el archivo XML

    xmlFile.Save outputFile

    ' Liberar el objeto de archivo XML

    Set xmlFile = Nothing

    MsgBox "Exportación a XML completada con éxito."

End Sub