{"id":55000522,"date":"2007-12-01T00:00:00","date_gmt":"2021-02-11T21:18:54","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=522"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"XMLDokumente_mit_VBA_erstellen_und_lesen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/XMLDokumente_mit_VBA_erstellen_und_lesen\/","title":{"rendered":"XML-Dokumente mit VBA erstellen und lesen"},"content":{"rendered":"

\"\"<\/p>\n

Schaut man sich in Foren und im Web um, so scheint XML im Zusammenhang mit Access und VBA mehr Fragen aufzuwerfen als zu beantworten. In den meisten Fällen dreht es sich um das Problem, wie man per VBA ein XML-Dokument mit bestimmten Elementen und Attributen erzeugt. Die Grundlagen dazu liefert dieser Beitrag genauso wie die zum Auslesen der erzeugten XML-Dokumente.<\/b><\/p>\n<\/div>\n

\n

Meist ist es doch so: Jemand fordert den Export von Daten in einem bestimmten XML-Format an oder liefert dieses Format, das Sie dann flugs in die passenden Tabellen der Datenbank importieren sollen. Beides ist prinzipiell einfach, aber da das Internet bislang kaum Informationen zu diesem stark gefragten Thema liefert, muss man erst einmal herausfinden, wie die einzelnen Techniken ineinandergreifen. <\/p>\n

Dass dieses Thema tatsächlich gefragt ist, zeigt die Zugriffsstatistik der Know-how-Beiträge von www.access-im-unternehmen.de<\/b>: Hier liegen die vier Artikel zum Thema XML meistenteils unter den Top Ten der am meisten abgerufenen Seiten.<\/p>\n

XML-Dokument als Zeichenkette<\/b><\/p>\n

Die einfachste Variante, um ein XML-Dokument zu erstellen, sind die herkömmlichen Text-Funktionen von VBA. Ein Beispiel liefern die folgenden Zeilen. Sie erstellen ein XML-Dokument, wie es in Bild 1 abgebildet ist:<\/p>\n

\n \"abb001.tif\"\n<\/div>\n
\n

Bild 1: Ein einfaches XML-Dokument<\/span><\/b><\/p>\n<\/div>\n

Dim str As String\r\nstr = "<xml version='1.0' encoding='iso-8859-1'>" & vbCrLf\r\nstr = str & "<Rootelement>"\r\nstr = str & "<Element>"\r\nstr = str & "Text des Elements"\r\nstr = str & "<\/Element"\r\nstr = str & "<\/Rootelement>"\r\nOpen "c:\\text.xml" For Output As #1\r\nPrint #1, str\r\nClose #1<\/pre>\n
Dabei stellen Sie die einzelnen Elemente des Dokuments Stück für Stück zu einer Zeichenkette zusammen und speichern diese anschließend in einer Datei. Wer in der Lage ist, mit DAO oder ADO eines oder mehrere verschachtelte Recordsets zu durchlaufen, braucht nur noch die passenden Anweisungen zum Zusammensetzen der Zeichenkette aus den gewünschten Feldinhalten darin unterzubringen.<\/p>\n
XML-DOM<\/b><\/p>\n
Selbstverständlich ist das der am wenigsten elegante Weg und er ist zudem fehleranfällig. Besser funktioniert es, wenn Sie die für solche Zwecke vorgesehene XML-Bibliothek von Microsoft verwenden, die beispielsweise den Zugriff auf die einzelnen Elemente eines XML-Dokuments bietet – und zwar über das Document Object Model <\/b>(DOM<\/b>). Um dieses einzusetzen, brauchen Sie einen Verweis auf die Bibliothek Microsoft XML, vx.y<\/b>. Sie werden eine ganze Reihe von Versionen dieser Bibliothek in der Liste vorfinden, von denen die älteste (v2.6) für die nachfolgenden Beispiele ausreicht. Jedes XML-Dokument enthält eine Zeile, die das Dokument als XML-Dokument charakterisiert und weitere Informationen, wie etwa die Version oder Hinweise zur Kodierung der enthaltenen Zeichen, liefert. Diese Zeile sieht meist zumindest so aus:<\/p>\n
<xml version="1.0"><\/pre>\n
Enthalten die Elemente Umlaute oder sonstige Sonderzeichen, empfiehlt sich die Angabe einer passenden Kodierung. Folgendes kleine Dokument würde beispielsweise im Internet Explorer einen Fehler auslösen:<\/p>\n
<xml version='1.0'>\r\n<root>äöü<\/root><\/pre>\n
Durch Hinzufügen eines weiteren Attributs zur ersten Zeile beheben Sie den Fehler:<\/p>\n
<xml version="1.0" encoding="iso-8859-1" > \r\n<Root>äöü<\/Root><\/pre>\n
Die Kodierung iso-8859-1 <\/b>sorgt dafür, dass Sie Umlaute sowie andere Sonderzeichen im Dokument verwenden können, ohne dass Sie diese kodieren müssen – dann müssten Sie nämlich beispielsweise &#228; <\/b>für den Buchstaben ä <\/b>schreiben.<\/p>\n
XML erzeugen „by example“<\/b><\/p>\n
Genug der Vorrede: Im Folgenden finden Sie Beispiele für verschiedene XML-Dokumente (jeweils im Kasten) und die passenden VBA-Anweisungen.<\/p>\n\n\n\n\n
\n
Beispiel: Einfaches XML-Dokument mit 
Root-Element<\/p>\n<\/td>\n<\/tr>\n
\n
<xml version="1.0" encoding="iso-8859-1" > <\/p>\n
<root \/><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
Dies ist fast das einfachste XML-Dokument, das Sie erzeugen können – es beinhaltet lediglich ein Element namens root <\/b>(XML-Dokumente ohne ein einziges Element sind nicht gültig). Sie erzeugen es beispielsweise mit den folgenden Anweisungen:<\/p>\n
Dim objXML As DOMDocument\r\nSet objXML = New DOMDocument\r\nobjXML.loadXML "<xml version='1.0'
    encoding='iso-8859-1'><Rootelement\/>"\r\n'objXML.Save "c:\\text.xml"<\/pre>\n
Das Problem hierbei ist, dass Sie den Inhalt der ersten Zeile von Hand zusammenschreiben müssen, was zu Fehlern führen könnte – beispielsweise, weil die Attribute nicht in der vorgeschriebenen Reihenfolge vorliegen.<\/p>\n
Besser macht es die folgende, aber längere Variante, die das gleiche Ergebnis liefert:<\/p>\n
Dim objXML As DOMDocument\r\nDim objRoot As IXMLDOMElement\r\nDim objPI As IXMLDOMProcessingInstruction\r\nSet objXML = New DOMDocument\r\nSet objPI = _
    objXML.createProcessingInstruction("xml", _
    "version='1.0' encoding='iso-8859-1'")\r\nSet objRoot = objXML.createElement("root")\r\nobjXML.appendChild objPI\r\nobjXML.appendChild objRoot\r\nobjXML.Save "c:\\text.xml"<\/pre>\n
Das sieht schon recht kompliziert aus, daher eine kurze Erläuterung: objXML <\/b>erhält zunächst ein neues, leeres XML-Dokument, noch ohne physische Entsprechung in Form einer Datei auf der Festplatte. Die Processing Instruction objPI<\/b>, die zum Angeben von Verarbeitungsinformationen wird dann mithilfe der Methode createProcessingInstruction <\/b>zusammengesetzt.<\/p>\n
Das Root-Element hat den Typ IXMLDOMElement <\/b>– genau wie alle anderen Elemente, die Sie in den weiteren Beispielen hinzufügen werden. Beide Elemente, objPI <\/b>und objRoot<\/b>, fügen Sie dem XML-Dokument objXML <\/b>in genau dieser Reihenfolge mit der appendChild<\/b>-Methode hinzu.<\/p>\n
Zusammen mit der Hilfsfunktion AddFormat <\/b>aus dem Kasten Prolog schreiben <\/b>brauchen Sie nur noch die folgenden Zeilen:<\/p>\n
Public Sub XMLMitKodierungUndRootelement_III()\r\n    Dim objXML As DOMDocument\r\n    Dim objRoot As IXMLDOMElement\r\n    Set objXML = New DOMDocument\r\n    AddFormat objXML, eEncodingISO8859_1\r\n    Set objRoot = objXML.createElement("root")\r\n    objXML.appendChild objRoot\r\n    Debug.Print objXML.xml\r\n    objXML.Save "c:\\text.xml"\r\nEnd Sub<\/pre>\n
\n
Prolog schreiben<\/p>\n
Der Prolog eines XML-Dokuments enthält eine erste Zeile, die eine XML-Datei als solche kennzeichnet und weitere Informationen wie die Kodierung und die Version liefert. Zusätzlich kann der Prolog weitere Informationen enthalten, die hier aber zunächst außer Acht bleiben sollen. Die folgende Funktion fügt dem übergebenen, zu diesem Zeitpunkt noch leeren XML-Dokument die besagte erste Zeile hinzu. Die Kodierung kann per Parameter übergeben werden, der Standardwert ist ISO-8859-1<\/b>.<\/p>\n
Public Function AddFormat(objXML As DOMDocument, intEncoding As eEncoding)<\/p>\n
    Dim objPI As IXMLDOMProcessingInstruction<\/p>\n
    Dim strEncoding As String<\/p>\n
    Select Case intEncoding<\/p>\n
        Case eEncodingUTF8<\/p>\n
            strEncoding = "utf-8"<\/p>\n
        Case eEncodingUTF16<\/p>\n
            strEncoding = "utf-16"<\/p>\n
        Case eEncodingISO8859_1<\/p>\n
            strEncoding = "iso-8859-1"<\/p>\n
    End Select<\/p>\n
    Set objPI = objXML.createProcessingInstruction("xml", "version='1.0' encoding='" _
        & strEncoding & "'")<\/p>\n
    objXML.appendChild objPI<\/p>\n
End Function<\/p>\n
Die folgende Enumeration liefert die Elemente für die in der Routine verwendete Variable des Typs eEncoding<\/b> für UTF-8, UTF-16 und ISO-8859-1:<\/p>\n
Public Enum eEncoding<\/p>\n
    eEncodingUTF8 = 1<\/p>\n
    eEncodingUTF16 = 2<\/p>\n
    eEncodingISO8859_1 = 3<\/p>\n
End Enum<\/p>\n<\/div>\n
Im übrigen dürfen Sie sich nicht durch die Ausgabe im Direktfenster irritieren lassen, die die Kodierung vermissen lässt – in der gespeicherten Version ist diese vorhanden.<\/p>\n\n\n\n\n
\n
Beispiel: Einfaches XML-Dokument mit 
Root-Element und einem Unterelement<\/p>\n<\/td>\n<\/tr>\n
\n
<xml version="1.0" encoding="iso-8859-1" > <\/p>\n
<root><\/p>\n
    <element \/><\/p>\n
<\/root><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
Wenn Sie unterhalb des Root-Elements ein weiteres Element einfügen möchten – hier mit dem Namen element <\/b>-, brauchen Sie zwei Schritte:<\/p>\n