Hallo Leute,
ich habe eben erst angefangen mit VBA - Und würde gerne wissen
ob es eine komplette zusammenfassung von Methoden/Funktionen gibt, welche ich benutzen kann?
Wenn ja, bitte ich um einen Link
Und mein eigentliches Problem ist -
Ich würde gerne eine XML Datei auslesen und diese Daten in eine Excel Tabelle speichern
Mein Quelltext sieht momentan so aus
Leider funktioniert das nicht
Und Leider habe ich keine Ahnung, wie oder wo ich jetzt ansetzen muss
Ich bin verzweifelt, bitte um Hilfe...
Zur Hilfe meine XML Datei sieht so aus
ich habe eben erst angefangen mit VBA - Und würde gerne wissen
ob es eine komplette zusammenfassung von Methoden/Funktionen gibt, welche ich benutzen kann?
Wenn ja, bitte ich um einen Link
Und mein eigentliches Problem ist -
Ich würde gerne eine XML Datei auslesen und diese Daten in eine Excel Tabelle speichern
Mein Quelltext sieht momentan so aus
Quellcode
- Option Explicit
- Sub Auslesen()
- Const XMLDATEIPFAD As String = "C:/Liste.xml"
- Dim xmlDoc As MSXML2.DOMDocument
- Dim xmlKnoten As MSXML2.IXMLDOMNode
- Dim xmlKnotenListe As MSXML2.IXMLDOMNodeList
- Dim xmlGeladen As Boolean
- Set xmlDoc = CreateObject("MSXML2.DOMDocument")
- xmlGeladen = xmlDoc.Load(XMLDATEIPFAD)
- If xmlGeladen = False Then
- MsgBox "Datei nicht gefunden"
- Exit Sub
- End If
- MsgBox xmlKnoten.ChildNode(0).Text
- If xmlKnoten.Attributes.Item(0).Text = "Person" Then
- Ausgeben xmlKnoten
- End If
- End Sub
- Sub Ausgeben(xmlStartKnoten As MSXML2.IXMLDOMNode)
- Dim xmlKnoten As MSXML2.IXMLDOMNode
- Dim xmlAttribut As MSXML2.IXMLDOMAttribute
- For Each xmlKnoten In xmlStartKnoten.ChildNodes
- If xmlKnoten.Attributes.Length > 0 Then
- For Each xmlAttribut In xmlKnoten.Attributes
- MsgBox xmlKnoten.nodeName & " --> " _
- & xmlAttribut.Name & " = " & xmlAttribut.Text
- Next
- Else
- MsgBox xmlKnoten.nodeName & " --> *** Kein Attribute vorhanden ***"
- End If
- If xmlKnoten.HasChildNodes Then
- AttributeAusgeben xmlKnoten
- End If
- Next
- End Sub
- Private Sub Export_Click()
- Auslesen
- End Sub
Leider funktioniert das nicht
Und Leider habe ich keine Ahnung, wie oder wo ich jetzt ansetzen muss
Ich bin verzweifelt, bitte um Hilfe...
Zur Hilfe meine XML Datei sieht so aus