Hallo, ich bin (leider) absoluter XML Neuling und brauche daher eure Hilfe!
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
|