Imprimir página | Cerrar ventana

Editar XML

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86958
Fecha de impresión: 26/Marzo/2026 a las 19:25


Tema: Editar XML
Publicado por: orafo1
Asunto: Editar XML
Fecha de publicación: 27/Junio/2024 a las 01:00
Buenos días compañer@s, tengo una aplicación desarrollada en Access, donde tengo formularios, informes, tablas vinculadas y demás.
Alguien por favor me puede ayudar es que necesito editar un XML que esta en un archivo, me podrian ayudar Embarrassed


-------------
Siempre algo nuevo por aprender



Respuestas:
Publicado por: orafo1
Fecha de publicación: 27/Junio/2024 a las 02:37
Buenas noches compañeros, encontré la solución podemos cerrar el hilo

    Dim xmlDoc As MSXML2.DOMDocument
    Set xmlDoc = New MSXML2.DOMDocument

    ' Ruta del archivo XML
    Dim xmlFilePath As String
    xmlFilePath = "C:\FE\BAT\HOLA.xml"

    ' Cargar el documento XML
    xmlDoc.async = False
    xmlDoc.Load xmlFilePath

    If xmlDoc.parseError.ErrorCode <> 0 Then
        MsgBox "Error cargando el archivo XML: " & xmlDoc.parseError.reason
        Exit Sub
    End If

    ' Realizar modificaciones en el XML
    Dim EtiquetaMod As MSXML2.IXMLDOMNode
    Set EtiquetaMod = xmlDoc.SelectSingleNode("/AttachedDocument/cac:ParentDocumentLineReference/cac:DocumentReference/cbc:UUID") ' Reemplaza con tu XPath

    If Not EtiquetaMod Is Nothing Then
        EtiquetaMod.Text = "FFFF"
    Else
        MsgBox "No se encontró el nodo especificado."
    End If

    ' Guardar los cambios en el archivo XML
    xmlDoc.Save xmlFilePath

    MsgBox "Archivo XML modificado y guardado correctamente."


-------------
Siempre algo nuevo por aprender



Imprimir página | Cerrar ventana