XML per VBA
02.12.2020 18:27:25
Werner
benötige nochmals eine kleine Hilfestellung bzgl. XML.
Mein Code sieht so aus:
'neues XML - Objekt erzeugen
Set xml = New MSXML2.DOMDocument60
' Die oberste Hierarchiestufe erstellen
xml.LoadXML ""
xml.appendChild xml.createProcessingInstruction("xml", "version=""1.0"" encoding=""ISO-8859-1""")
Set xmlORDER_LIST = xml.createElement("ORDER_LIST")
xml.appendChild xmlORDER_LIST
' Die ORDER unter ORDER_LIST erstellen
Set xmlORDER = xmlORDER_LIST.appendChild(xml.createElement("ORDER"))
xmlORDER_LIST.appendChild xmlORDER
' Creates Attribute für ORDER Element
Set xmlORDERATTR = xml.createAttribute("xmlns")
xmlORDERATTR.NodeValue = "http://www.opentrans.org/XMLSchema/1.0"
xmlORDER.setAttributeNode xmlORDERATTR
Set xmlORDER_HEADER = xmlORDER.appendChild(xml.createElement("ORDER_HEADER"))
xmlORDER.appendChild xmlORDER_HEADER
und die XML Datei so:
?xml version="1.0" encoding="ISO-8859-1"?
ORDER_LIST
ORDER xmlns="http://www.opentrans.org/XMLSchema/1.0"
ORDER_HEADER xmlns=""
CONTROL_INFO
GENERATOR_INFO Shopware5 GENERATOR_DATE 02.12.2020 CONTROL_INFO
ORDER_INFO
Das Problem ist im Element "ORDER_HEADER" dort steht nun auch xmlns="" und das sollte nicht sein. Kann man das Attribut auch wieder ausstellen.
Vielen Dank im Voraus
Werner