Thema Datum  Von Nutzer Rating
Antwort
Rot VBA XML-Daten verarbeiten
 04.05.2015 13:54:38 Gast70535
NotSolved

Ansicht des Beitrags:
Von:
Gast70535		 Datum:
04.05.2015 13:54:38		 Views:
1079		 Rating:
     
Antwort:
  Ja
Thema:
VBA XML-Daten verarbeiten

Guten Tag Zusammen,

ich möchte Daten aus einem Makro in eine XML Datei schreiben und diese wieder auslesen. Leider klappt das mit dem schreiben aber noch gar nicht. Meine XML-Datei ist wie folgt aufgebaut:


<Element_root>
	<ref> 1
		<element1> </element1>
		<element2> </element2>
		<element3> </element3>
		<element4> </element4>
		<element5> </element5>
		<element6> </element6>
		<element7>
			<s1> </s1>
			<f1> </f1>
			<o1> </o1>
			<a1> </a1>
			<x1> </x1>
			<r1>  </r1>
		</element7>
		<element8>
			<s2> </s2>
			<f2> </f2>
			<o2> </o2>
			<a2> </a2>
			<x2> </x2>
			<r2> </r2>
		</element8>
		<element9> </element9>
	</ref>

	<ref> 2
	.
	.
	.

Bei den Daten zwischen <ref>....</ref> handelt es sich um jeweils einen Datensatz. Mein Ziel ist es die kompletten Struktur zwischen <ref> und </ref> mit den Daten aus dem Makro zu befüllen und zu  "Element_root" hinzuzufügen. Bislang gelang es mir nur das gesamte Dokument zu überschreiben.

Beim Auslesen der Daten gehe ich wie folgt vor:

    Dim path As String
    path = ThisDocument.path & "\Data\risiko_data.xml"
    
    Dim xDoc As MSXML2.DOMDocument
    Set xDoc = New MSXML2.DOMDocument
    Dim item() As String
    Dim i As Long
        
    If xDoc.Load(path) Then

        Dim nodeList As MSXML2.IXMLDOMNodeList
        
        Set nodeList = xDoc.SelectNodes("//Element1")

        For Each nodes In nodeList
            'Debug.Print nodes.Text
            item = Split(nodes.Text, "   ")

Gibt eine einen eleganteren Weg die Daten in ein Array einzulesen? Mein aktueller Weg ist leider sehr Fehleranfällig, sollte sich etwas an der Zeichenfolge änderen.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA XML-Daten verarbeiten
 04.05.2015 13:54:38 Gast70535
NotSolved