Ausgelesene XML Daten in Tabelle darstellen
31.07.2017 09:17:30
Cubenera
Ich möchte Daten aus einem XML in einer Tabelle darstellen.
Meine Daten werden schon ausgelesen und korrekt im Direktbereich bei VBA angezeigt.
Leider komme ich nicht weiter - wie kriege ich diese Daten in eine Tabelle?
Hier mein bisheriger Code:
Sub einlesen()
Dim vntFiles As Variant
vntFiles = Application.GetOpenFilename("XML Dateien (*.xml),*.xml", MultiSelect:=False)
Dim XDoc As Object
Dim lists As Object
Dim listNode As Object
Dim fieldNode As Object
Dim nodeattr As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load (vntFiles)
'Get Document Elements
Set lists = XDoc.DocumentElement
For Each listNode In lists.ChildNodes
Debug.Print listNode.BaseName
For Each fieldNode In listNode.ChildNodes
Debug.Print "[" & fieldNode.BaseName & "]"
If fieldNode.Attributes.Length > 0 Then
For Each nodeattr In fieldNode.Attributes
Debug.Print nodeattr.Name & " = " & nodeattr.NodeValue
Next nodeattr
End If
Next fieldNode
Next listNode
Set XDoc = Nothing
End Sub