XML VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. XML
  4. Find and Edit the Node that Contains the FirstName Mike
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