kann mir jemand bei diesem Thema weiterhelfen?
Muss die Daten einer Execl Tabelle auslesen und in ein
XML File schreiben. Wäre für jede Hilfe dankbar.
Gruß fisi
Sub CreateNewXML()
'Anlegen XMLFile
Dim oXMLFile As New DOMDocument
'Anlegen der Wurzel
Dim oRoot As IXMLDOMNode
Set oRoot = oXMLFile.createNode("element", "WURZEL", "")
oXMLFile.appendChild oRoot
'Erstes Element
Dim oChild As IXMLDOMElement
Set oChild = oXMLFile.createNode("element", "EINTRAG", "")
oChild.Text = "hier kommt dann der Inhalt rein, oder so "
oRoot.appendChild oChild
' Attribut hinzufügen
Dim oAttr As IXMLDOMAttribute
Set oAttr = oXMLFile.createAttribute("ID")
oAttr.Value = 15
oChild.setAttributeNode oAttr
'Speichern
oXMLFile.Save "h:\test.xml"
End Sub