Ich möchte gerne aus einem Knoten mehrere Daten auslesen (hier die Sachnummer 900000), leider wird mir aber nur immer die erste ausgegeben und die anderen folgenden nicht. Muss man hier vielleicht eine Art Schleife machen?
Kann mir jemand dabei helfen?
Hier meine Programmierung:
Set xmlKnoten = xmlDoc.SelectSingleNode("/*")
nsString = ""
For Each X In xmlKnoten.Attributes
If Left(X.XML, 5) = "xmlns" Then
nsString = nsString & " " & Replace(X.XML, """", "'")
End If
Next
xmlDoc.setProperty "SelectionNamespaces", nsString
xpathKnoten = "/Überschrift/Kapitel"
Set xmlKnoten = xmlDoc.SelectSingleNode(xpathKnoten)
If xmlKnoten Is Nothing Then
MsgBox xpathKnoten & "-Knoten nicht gefunden. Vermutlich falsche XML-Struktur oder kein Namespace angegeben", _
vbCritical, XmlDateiMitPfad
Exit Sub
End If
With ActiveSheet
.Range("L15") = xmlKnoten.SelectSingleNode("Sachnummer").Text
End With
End Sub
Test1
Versuch1
1234
0815
Versuch1
de
32
Production
900000
M-BASE
0
Atrikel_900000
Atrikel1