|
Sub ChangeNode()
Dim oXmlDoc As DOMDocument
Dim oXmlNode As IXMLDOMNode
FileCopy ThisWorkbook.Path & "\EmployeeSales.xml", _
ThisWorkbook.Path & "\EmployeeSalesTest.xml"
Set oXmlDoc = New DOMDocument
oXmlDoc.async = False
oXmlDoc.Load (ThisWorkbook.Path & "\EmployeeSalesTest.xml")
Set oXmlNode = oXmlDoc..SelectsingleNode ("//FirstName[text()='Mike']")
oXmlNode.Text = "Michael"
oXmlDoc.Save ThisWorkbook.Path & "\EmployeeSalesTest.xml"
End Sub
|