|
Sub SelectSingleNode()
Dim xmldoc As MSXML2.DOMDocument50
Dim xmlSingleNode As MSXML2.IXMLDOMNode
Set xmldoc = New MSXML2.DOMDocument50
xmldoc.async = False
xmldoc.Load ("C:\yourFile.xml")
Set xmlSingleNode = xmldoc.SelectSingleNode("//Name")
If xmlSingleNode Is Nothing Then
Debug.Print "No nodes selected."
Else
Debug.Print xmlSingleNode.Text
End If
Set xmlDoc = Nothing
End Sub
|