Ich möchte ein Excel Sheet in eine XML Datei umwandeln. Dabei bin ich hier im Forum folgenden Beitrag gestossen:
hi fisi, also ganz kurz: zu aller erst Verweis auf Microsoft XML setzen. und ansonsten hier ein kleines Beispiel, der Objektkatalog ist ganz hilfreich: 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 die test.xml sieht dann folgendermaßen aus:
Mir ist nun nur nicht klar, wie genau dieser Verweis auf MS XML aussieht :( Ich hab Excel 2003
Gruss Thomas