Editar XML

   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 

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
orafo1 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 18/Junio/2010 Localización: Colombia Estado: Sin conexión Puntos: 315	Tema: Editar XML Enviado: 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
	Siempre algo nuevo por aprender

orafo1 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 18/Junio/2010 Localización: Colombia Estado: Sin conexión Puntos: 315	Enviado: 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