![\"Verweis](\"..\/tl_files\/images\/pic_450_001.png\")
<\/a><\/p>\nBild 1: Verweis auf die XML-Bibliothek <\/p>\n
Wenn Sie nun mit der Schaltfläche F2 <\/b>den Objektkatalog öffnen, können Sie nach der Auswahl des Eintrags MSXML2 <\/b>oben im Kombinationsfeld alle Elemente dieser Bibliothek einsehen (siehe Bild 2).<\/p>\n
Bild 2: Objektkatalog von VBA<\/p>\n Wir wollen die Daten aus einem XML-Dokument mit einer Bestellung als Beispiel verwenden, das Sie auch auf der folgenden Microsoftseite finden können – für den Fall, dass Sie mit weiteren Beispieldokumenten experimentieren wollen:<\/p>\n Das Dokument sieht wie in Listing 1 aus. Es enthält genau eine Bestellung, die im Element PurchaseOrder <\/b>enthalten ist. Das Hauptelement enthält in zwei Attributen die Bestellnummer und das Bestelldatum.<\/p>\n Listing 1: Inhalt eines XML-Dokuments mit einer Bestellung<\/p>\n Darunter finden Sie die Liefer- und die Rechnungsadresse jeweils in Address<\/b>-Elementen mit entsprechenden Unterelementen.<\/p>\n Ob es sich um eine Liefer- oder Bestelladresse handelt, entnehmen Sie dem Attribut Type <\/b>des Address<\/b>-Elements.<\/p>\n Darunter folgen DeliveryNotes <\/b>als eigenes Element sowie eine Auflistung namens Items <\/b>mit einigen Item<\/b>-Elementen, welche die eigentlichen Bestellpositionen ausmachen. In den folgenden Abschnitten zeigen wir, wie Sie die dort enthaltenen Informationen per VBA und mithilfe der XML-Bibliothek auslesen können.<\/p>\n Um auf den Inhalt eines Dokuments zuzugreifen, wollen wir dieses zunächst referenzieren. Dazu gibt es genau eine geeignete Klasse, nämlich DOMDocument60<\/b>.<\/p>\n Diese deklarieren wir mit der Variablen objXML<\/b>, danach instanzieren wir ein neues Objekt auf Basis dieser Klasse mit dem New<\/b>-Schlüsselwort.<\/p>\n Die DOMDocument<\/b>-Klasse bietet unter anderem die beiden Methoden Load <\/b>und LoadXML <\/b>an:<\/p>\n Mit unserer Beispieldatei PurchaseOrder.xml <\/b>sieht das Einlesen wie in der folgenden Prozedur aus. Hier prüfen wir direkt, ob das Einlesen erfolgreich war. Falls ja, geben wir den Inhalt des Dokuments im Direktbereich des VBA-Editors aus. Dazu verwenden wir die Debug.Print<\/b>-Anweisung mit der XML<\/b>-Eigenschaft von objXML<\/b>.<\/p>\n In unserem Beispiel gibt es keine Probleme beim Einlesen. Was aber könnte dabei nicht funktionieren Es kann zum Beispiel vorkommen, dass das XML-Dokument nicht wohlgeformt ist.<\/p>\n Das bedeutet, dass zum Beispiel das öffnende Element Um herauszufinden, welcher Fehler vorliegt, können Sie die Eigenschaften des Elements ParseError <\/b>nutzen. Dazu fügen wir dem Else<\/b>-Teil der If…Then<\/b>-Bedingung aus der obigen Prozedur noch ein paar weitere Zeilen hinzu:<\/p>\n Wenn wir einmal das schließende PurchaseOrder<\/b>-Element aus dem Dokument entfernen und die Prozedur erneut aufrufen, erhalten wir die Informationen aus Bild 3.<\/p>\n Bild 3: Fehlerinformationen des parseError-Objekts<\/p>\n Die Meldung, welche die Eigenschaft Reason <\/b>für uns bereithält, ist aussagekräftig genug, um den Fehler zu beheben.<\/p>\n Unser objXML<\/b>-Objekt enthält nach dem Aufruf der Load<\/b>-Methode, wie wir der XML<\/b>-Eigenschaft entnehmen konnten, den kompletten Inhalt des XML-Dokuments. Wie können wir auf die einzelnen Elemente des Dokuments zugreifen und deren Inhalt ausgeben Als Erstes wollen wir dabei das sogenannte Root-Element referenzieren, das in unserem Fall so aussieht:<\/p>\n Um auf ein einzelnes XML-Element innerhalb eines Dokuments zu verweisen, benötigen wir eine Objektvariable mit dem passenden Typ, in diesem Fall IXMLDOMElement<\/b>:<\/p>\n Nach dem Laden des documentElement<\/b>-Elements referenzieren wir das Root-Element dann über die document-Element<\/b>-Eigenschaft:<\/p>\n Danach können wir beispielsweise mit baseName<\/b> den Namen des Elements ermitteln, hier PurchaseOrder<\/b>, oder mit der XML<\/b>-Eigenschaft den Inhalt des XML-Elements ausgeben:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nBeispieldokument<\/h2>\n
https:\/\/docs.microsoft.com\/de-de\/dotnet\/visual-basic\/programming-guide\/concepts\/linq\/sample-xml-documents-linq-to-xml<\/pre>\n
<xml version=\"1.0\"> \r\n<PurchaseOrder PurchaseOrderNumber=\"99503\" OrderDate=\"1999-10-20\"> \r\n <Address Type=\"Shipping\"> \r\n <Name>Ellen Adams<\/Name> \r\n <Street>123 Maple Street<\/Street> \r\n <City>Mill Valley<\/City> \r\n <State>CA<\/State> \r\n <Zip>10999<\/Zip> \r\n <Country>USA<\/Country> \r\n <\/Address> \r\n <Address Type=\"Billing\"> \r\n <Name>Tai Yee<\/Name> \r\n <Street>8 Oak Avenue<\/Street> \r\n <City>Old Town<\/City> \r\n <State>PA<\/State> \r\n <Zip>95819<\/Zip> \r\n <Country>USA<\/Country> \r\n <\/Address> \r\n <DeliveryNotes>Please leave packages in shed by driveway.<\/DeliveryNotes> \r\n <Items> \r\n <Item PartNumber=\"872-AA\"> \r\n <ProductName>Lawnmower<\/ProductName> \r\n <Quantity>1<\/Quantity> \r\n <USPrice>148.95<\/USPrice> \r\n <Comment>Confirm this is electric<\/Comment> \r\n <\/Item> \r\n <Item PartNumber=\"926-AA\"> \r\n <ProductName>Baby Monitor<\/ProductName> \r\n <Quantity>2<\/Quantity> \r\n <USPrice>39.98<\/USPrice> \r\n <ShipDate>1999-05-21<\/ShipDate> \r\n <\/Item> \r\n <\/Items> \r\n<\/PurchaseOrder> <\/pre>\n
Die DOMDocument-Klasse<\/h2>\n
\n
Public Sub <\/span>DokumentReferenzieren()\r\n Dim <\/span>objXML As <\/span>DOMDocument60\r\n Set<\/span> objXML = New<\/span> DOMDocument60\r\n If objXML.Load(CurrentProject.Path _\r\n & \"\\PurchaseOrder.xml\") = True<\/span> Then\r\n Debug.Print<\/span> objXML.XML\r\n Else<\/span>\r\n MsgBox<\/span> \"Fehler beim Einlesen\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nFehler beim Einlesen<\/h2>\n
Debug.Print<\/span> \"Fehler bei Einlesen:\"\r\nDebug.Print<\/span> \"ErrorCode: \" & objXML.parseError.errorCode\r\nDebug.Print<\/span> \"Filepos: \" & objXML.parseError.filepos\r\nDebug.Print<\/span> \"Line: \" & objXML.parseError.Line\r\nDebug.Print<\/span> \"LinePos: \" & objXML.parseError.linepos\r\nDebug.Print<\/span> \"Reason: \" & objXML.parseError.reason\r\nDebug.Print<\/span> \"srcText: \" & objXML.parseError.srcText\r\nDebug.Print<\/span> \"Url: \" & objXML.parseError.url<\/pre>\n<\/a><\/p>\nDas Root-Element einlesen<\/h2>\n
Public Sub <\/span>RootElementReferenzieren()\r\n Dim <\/span>objXML As <\/span>DOMDocument60\r\n Dim <\/span>objRoot As <\/span>IXMLDOMElement\r\n Set<\/span> objXML = New<\/span> DOMDocument60<\/pre>\n objXML.Load CurrentProject.Path & \"\\PurchaseOrder.xml\"\r\n Set<\/span> objRoot = objXML.documentElement<\/pre>\n Debug.Print<\/span> objRoot.baseName\r\n Debug.Print<\/span> objRoot.XML\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t