Retrieving Specific Information from Element Nodes : XML Data « XML « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. XML
  3. XML Data

Retrieving Specific Information from Element Nodes

 
Sub SelectNodesByCriteria() 
    Dim xmldoc As MSXML2.DOMDocument50 
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList 
    Dim myNode As MSXML2.IXMLDOMNode 

    Set xmldoc = New MSXML2.DOMDocument50 
    xmldoc.async = False 
    xmldoc.Load ("C:\yourFile.xml") 
    Set xmlNodeList = xmldoc.selectNodes("//Name") 
    If Not (xmlNodeList Is Nothing) Then 
        For Each myNode In xmlNodeList 
            Debug.Print myNode.Text 
            If myNode.Text = "old Text" Then 
                myNode.Text = "new Text" 
                xmldoc.Save "C:\newFile.xml" 
            End If 
        Next myNode 
    End If 
    Set xmlDoc = Nothing 
End Sub








Related examples in the same category

1.Loading and Retrieving the Contents of an XML File
2.Working with XML Document Nodes
3.Retrieving Information from Element Nodes
4.Retrieving the First Matching Node