Mega Code Archive

 

Categories / VisualBasic Script / XML

 

Find by value

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("//Employee[InvoiceAmount>3000]")            For Each oXmlNode In oXmlNodes            Debug.Print oXmlNode.Text            Next End Sub