{"id":55000465,"date":"2019-10-01T00:00:00","date_gmt":"2020-04-06T16:32:45","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=465"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"XML_mit_VBA_lesen_Nodes_selektieren","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/XML_mit_VBA_lesen_Nodes_selektieren.html","title":{"rendered":"XML mit VBA lesen: Nodes selektieren"},"content":{"rendered":"

Im Artikel „XML-Dokumente mit VBA lesen“ haben wir die grundlegenden Befehle erläutert, mit denen Sie per VBA auf den Inhalt von XML-Dokumenten zugreifen können. Wir sind dort bereits kurz auf die beiden Funktionen SelectNodes und SelectSingleNode eingegangen, mit denen Sie einen Verweis auf eine Auflistung mehrerer Node-Elemente oder eines einzelnen Elements holen können. Dabei geben Sie per Parameter den Pfad zu den gesuchten Node-Elementen oder die Attribute der Elemente auf diesem Pfad an. Im vorliegenden Artikel sehen wir uns im Detail an, wie Sie solche Suchkriterien formulieren können.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1905_XML-LesenVBA.accdb<\/b>.<\/p>\n

Beispieldokument<\/h2>\n

Wir nutzen wieder das Beispieldokument aus dem eingangs erwähnten Artikel, das alle gängigen Eigenschaften und Pfade für Beispiele zum Auffinden von Elementen liefert (siehe Listing 1).<\/p>\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
Listing 1: Inhalt eines XML-Dokuments mit einer Bestellung<\/p>\n
Voraussetzungen<\/h2>\n
Wenn Sie die Beispiele dieses Artikels nachvollziehen wollen, verwenden Sie entweder die Beispieldatenbank oder eine eigene Datenbank. Dieser fügen Sie dann einen Verweis auf die Bibliothek Microsoft XML, v6.0 <\/b>hinzu.<\/p>\n
Schnelles Einlesen des XML-Dokuments<\/h2>\n
Da wir das XML-Dokument aus dem Listing in allen folgenden Beispielprozeduren einlesen müssen, lagern wir die dazu notwendigen Anweisungen in eine eigene Funktion namens DokumentEinlesen <\/b>aus.<\/p>\n
Diese finden Sie in Listing 2. Alle Aufgaben dieser Funktion haben wir bereits im Artikel XML-Dokumente mit VBA lesen <\/b>erläutert.<\/p>\n
<font color=blue>Public Function <\/font>DokumentEinlesen()<font color=blue> As <\/font>MSXML2.DOMDocument60\r\n      <font color=blue>Dim <\/font>strDatei<font color=blue> As String<\/font>\r\n      <font color=blue>Dim <\/font>objXML<font color=blue> As <\/font>MSXML2.DOMDocument60\r\n      strDatei = CurrentProject.Path & \"\\PurchaseOrder.xml\"\r\n      <font color=blue>Set<\/font> objXML = <font color=blue>New<\/font> MSXML2.DOMDocument60\r\n      objXML.Load strDatei\r\n      <font color=blue>If <\/font><font color=blue>Not<\/font> <font color=blue>Len<\/font>(objXML.XML) = 0<font color=blue> Then<\/font>\r\n          <font color=blue>Set<\/font> DokumentEinlesen = objXML\r\n      <font color=blue>Else<\/font>\r\n          <font color=blue>MsgBox<\/font> \"Fehler \" & objXML.parseError.errorCode & \": \" & objXML.parseError.reason\r\n      <font color=blue>End If<\/font>\r\nEnd Function<\/span> <\/pre>\n
Listing 2: Funktion zum Einlesen des Inhalts von XML-Dokumenten<\/p>\n
In den folgenden Prozeduren füllen wir einfach eine MSXML2.DOMDocument60<\/b>-Variable mit dem Ergebnis der Funktion DokumentEinlesen<\/b>.<\/p>\n
XPath<\/h2>\n
Die Parameter, die wir den beiden Funktionen SelectNodes <\/b>oder SelectSingleNode <\/b>übergeben, werden in einer eigenen Sprache formuliert – in XPath<\/b>.<\/p>\n
Wir schauen uns zunächst an, welche Daten uns die beiden Funktionen zurückliefern, wenn wir diesen gar keine Parameter übergeben.<\/p>\n
selectSingleNode, einfache Variante<\/h2>\n
Die Funktion selectSingleNode <\/b>funktioniert, wie wir schnell herausfinden, schon einmal nicht ohne Parameter. Sie erwartet mindestens die Angabe des Schrägstrichs als Zeichenkette:<\/p>\n
Public Sub <\/span>SelectNodesOhneParameter()\r\n    Dim <\/span>objXML As <\/span>MSXML2.DOMDocument60\r\n    Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\r\n    Set<\/span> objXML = DokumentEinlesen\r\n    Set<\/span> objNode = objXML.selectSingleNode(\"\/\")\r\n    Debug.Print<\/span> objNode.XML\r\nEnd Sub<\/span><\/pre>\n
Wenn wir mit dieser Prozedur auf das mit dem Ausdruck \/ <\/b>zu findende Element zugreifen, erhalten wir das vollständige XML-Dokument über die XML-Eigenschaft des gefundenen IXMLDOMNode<\/b>-Elements.<\/p>\n
Aber handelt es sich hierbei überhaupt um ein IXMLDOMNode<\/b>-Element Das finden wir heraus, wenn wir die Variable objNode <\/b>als Object <\/b>deklarieren und den Objekttyp dann mit der Funktion Typename <\/b>ausgeben lassen:<\/p>\n
...\r\nDim <\/span>objNode As Object<\/span> 'MSXML2.IXMLDOMNode\r\nSet<\/span> objXML = DokumentEinlesen\r\nSet<\/span> objNode = objXML.selectSingleNode(\"\/\")\r\nDebug.Print<\/span> TypeName(objNode)\r\n...<\/pre>\n
Das Ergebnis lautet:<\/p>\n
DOMDocument60<\/pre>\n
\/ <\/b>liefert also das vollständige Dokument zurück.<\/p>\n
selectSingleNode mit Elementname<\/h2>\n
Wenn wir gezielt den Namen eines Elements angeben, in diesem Fall den des Root-Elements, dann liefert selectSingleNode <\/b>ein Element des Typs IXMLDOM-Element <\/b>und gibt den vollständigen Dokumentinhalt mit Ausnahme der Processing Instruction (das ist die <\/b>-Zeile) zurück:<\/p>\n
Set<\/span> objNode = objXML.selectSingleNode(\"PurchaseOrder\")\r\nDebug.Print<\/span> TypeName(objNode)\r\nDebug.Print<\/span> objNode.XML<\/pre>\n
Anderes Element per Elementname<\/h2>\n
Wenn wir über den Elementnamen auf ein Element zugreifen wollen, das nicht auf der ersten Ebene liegt, könnten wir das so probieren (die beiden Address<\/b>-Elemente liegen direkt unterhalb von PurchaseOrder<\/b>):<\/p>\n
Set<\/span> objNode = objXML.selectSingleNode(\"Address\")<\/pre>\n
Wenn wir danach mit objNode.XML <\/b>auf den Inhalt zugreifen wollen, gelingt das nicht – wir erhalten dann die Fehlermeldung aus Bild 1.<\/p>\n
\"Fehler<\/a><\/p>\n
Bild 1: Fehler beim Zugriff auf eine nicht gefüllte Objektvariable<\/p>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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
\n\n\t\t\n\t\t