Kann sein, dass nodesAllNeeded auch als Variant deklariert werden muss, damit die For Each Schleife funktioniert. Bin gerade nicht sicher.
Sub XMLParser()
Dim xDoc As New MSXML2.DOMDocument60
Dim nodesAllNeeded As IXMLDOMElement
Dim nodeOneNeeded As Variant
Set xDoc = New MSXML2.DOMDocument60
With xDoc
.async = False
.validateOnParse = True
If xDoc.Load("C:\Test\Beispiel.xml") = False Then
Debug.Print .parseError.reason, .parseError.ErrorCode
Exit Sub
End If
Set node = xDoc.getElementsByTagName("renderedResult")
For Each nodeOneNeeded In nodesAllNeeded
'Ausgabe im Direktfenster
'In der VBA IDE aufrufen mit Strg + G
Debug.Print nodeOneNeeded.getAttribute("concentration")
Next nodeOneNeeded
End With
End Sub
|