XML Datei aktualisieren
13.05.2022 11:59:51
Stefan
Ich habe eine bestehende xml Datei mit folgendem Aufbau:
Bereiche
Vorbemerkungen
Baustelleneinrichtung
Erdarbeiten
Wegebauarbeiten
Mauerarbeiten
Pflanzen
Vegetationstechnik
Saatarbeiten
Ausstattung
Bereiche
Jetzt möchte ich per VBA in die einzelnen Elemente z.B. Erdarbeiten weitere Elemente hinzufügen mit Text um diese später wieder auslesen zu können.
Hier mal ein Code mit dem ich experimentiere damit kann ich aber nur unter dem Wurzelelement Elemente hinzufügen.
Sub transformieren()
Dim xml As New MSXML2.DOMDocument
Dim xmlElement As MSXML2.IXMLDOMElement
xml.Load "C:\Users\Stefan\Desktop\test04.xml"
Set xmlElement = xml.createElement("neuesElement")
xml.DocumentElement.InsertBefore(xmlElement, xml.DocumentElement.ChildNodes(0)).Text = "Hallo"
xml.Save "C:\Users\Stefan\Desktop\test05.xml"
End Sub
