Mega Code Archive

 

Categories / VisualBasic Script / XML

 

Find by path

Sub FindNode()          Dim oXmlDoc As DOMDocument          Dim oXmlNode As IXMLDOMNode          Dim oXmlNodes As IXMLDOMNodeList            Set oXmlDoc = New DOMDocument            oXmlDoc.async = False            oXmlDoc.Load (ThisWorkbook.Path & "\EmployeeSales.xml")            Set oXmlNodes = oXmlDoc.SelectNodes("/EmployeeSales/Employee/Empid")            For Each oXmlNode In oXmlNodes            Debug.Print oXmlNode.Text            Next End Sub