![\"Hinzuf\u00fcgen](\"..\/fileadmin\/_temp_\/2016_04\/pic_1050_001.png\")
<\/p>\nXML-Dokumente erscheinen je nach Gr\u00f6\u00dfe auf den ersten Blick oft un\u00fcbersichtlich und m\u00e4chtig. Wie soll man hier die gew\u00fcnschten Daten extrahieren – und das auch noch programmgesteuert per VBA Beispielsweise, um Informationen aus einem XML-Dokument in eine Access-Tabelle zu \u00fcbertragen. Daf\u00fcr steht die Abfragesprache VBA XPath zur Verf\u00fcgung. Sie erlaubt es, mit verschiedenen Ausdrucken gezielt auf Elemente mit bestimmten Namen oder Eigenschaften zuzugreifen. Dieser Beitrag zeigt anhand einiger Beispiele, wie Sie XPath unter Access\/VBA einsetzen.<\/b><\/p>\nVoraussetzungen f\u00fcr VBA XPath<\/h2>\n
Um die folgenden Beispiele auszuf\u00fchren, ben\u00f6tigen Sie eine Beispieldatenbank mit einem Verweis auf die XML-Bibliothek von Microsoft. Dazu \u00f6ffnen Sie den Verweise-Dialog (VBA-Editor, Men\u00fceintrag Extras|Verweise<\/b>) und w\u00e4hlen dort den Eintrag Microsoft XML, v3.0 <\/b>aus (s. Bild 1). Mit Microsoft XML, v6.0 <\/b>gab es bei der Erstellung der Beispiele Probleme, da hier einige Methoden nicht die erwarteten Ergebnisse lieferten.<\/p>\n
<\/p>\n
Bild 1: Hinzuf\u00fcgen des Verweises auf die XML-Bibliothek<\/span><\/b><\/p>\n Um per VBA XPath auf den Inhalt eines XML-Dokuments zugreifen zu k\u00f6nnen, ben\u00f6tigen Sie zun\u00e4chst ein solches. Unseres hei\u00dft KategorienUndArtikel.xml <\/b>und sollte sich im gleichen Verzeichnis wie die Beispieldatenbank befinden, da die Zugriffe auf diese Datei dahingehend ausgerichtet sind. Der Inhalt dieser XML-Datei sieht wie in Listing 1 aus.<\/p>\n Listing 1: XML-Dokument f\u00fcr die Beispiele dieses Beitrags<\/span><\/b><\/p>\n Um per VBA XPath auf ein XML-Dokument zugreifen zu k\u00f6nnen, m\u00fcssen Sie dieses zun\u00e4chst in den Speicher laden, beziehungsweise es mit einem geeigneten Objekt referenzieren. Dies erledigen Sie mit dem Code, wie er etwa in der folgenden Prozedur enthalten ist:<\/p>\n Die Prozedur erstellt ein neues Objekt des Typs DOMDocument <\/b>und verwendet die Load<\/b>-Methode, um die angegebene Datei in das Objekt zu laden. Gelingt dies, sollte die L\u00e4nge der \u00fcber die Eigenschaft XML <\/b>zu ermittelnde Zeichenkette, also der Inhalt des Dokuments, gr\u00f6\u00dfer als 0 <\/b>sein. In diesem Fall soll die Prozedur den Inhalt des XML-Dokuments im Direktbereich des VBA-Editors ausgeben. Anderenfalls ist etwas beim Einlesen schiefgelaufen. Dann soll die Fehlernummer samt der Fehlerbeschreibung im Direktbereich erscheinen.<\/p>\n Um die Abfragesprache XPath von VBA aus nutzen zu k\u00f6nnen, gibt es zwei Funktionen. Die erste hei\u00dft selectSingleNode <\/b>und erwartet einen XPath<\/b>-Ausdruck als Parameter. Sie liefert ein einziges Node<\/b>-Element als Ergebnis zur\u00fcck, sofern die Abfrage ein Ergebnis hat.<\/p>\n Die zweite Funktion hei\u00dft selectNodes <\/b>und liefert eine Auflistung des Typs DOMSelection <\/b>zur\u00fcck. Sie kann kein, ein oder mehrere Elemente enthalten, die wiederum den Typ DOMDocument <\/b>f\u00fcr das Dokument-Objekt, IXMLDOMProcessingInstruction <\/b>f\u00fcr das <\/b>-Element oder IXMLDOMElement <\/b>f\u00fcr die \u00fcbrigen Elemente aufweisen.<\/p>\n \u00fcblicherweise werden Sie aber mit den Elementen des Typs IXMLDOMElement <\/b>arbeiten, ein Zugriff auf das DOMDocument<\/b>-Objekt oder das IXMLDOMProcessingInstruction<\/b>-Objekt ist selten in Zusammenhang mit dem Zugriff per XPath n\u00f6tig.<\/p>\n Unsere Beispielprozedur f\u00fcr das Erstellen eines XML-Dokuments und das F\u00fcllen dieses Objekts aus einer XML-Datei haben wir etwas abgewandelt, damit wir damit mit einer Anweisung innerhalb unserer Beispielprozeduren auf das XML-Dokument zugreifen k\u00f6nnen (s. Listing 2).<\/p>\n Listing 2: Hilfsfunktion, um ein gef\u00fclltes DOMDocument-Element zu holen<\/span><\/b><\/p>\n Ein Beispiel f\u00fcr den Zugriff auf ein einzelnes XML-Element sieht danach wie folgt aus:<\/p>\n Dies liest das Element Bestellverwaltung <\/b>samt allen untergeordneten Elementen ein. Wenn wir wie in obiger Beispielprozedur den Inhalt der XML-Eigenschaft im Direktbereich ausgeben, erhalten wir also fast das komplette Dokument – mit Ausnahme der Formatinformationen in der <\/b>-Zeile.<\/p>\n Dies gelingt aber auch nur \u00fcber den VBA XPath-Ausdruck Bestellverwaltung<\/b>, weil wir die selectSingleNode<\/b>-Funktion f\u00fcr das DOMDocument<\/b>-Objekt aufrufen und das Bestellverwaltung-Objekt diesem direkt untergeordnet ist.<\/p>\n Wir k\u00f6nnten also nicht etwa auf das erste Kategorie<\/b>-Objekt zugreifen, indem wir einfach folgenden Ausdruck nutzen:<\/p>\n Wenn wir dies versuchen, erhalten wir eine Fehlermeldung wie in Bild 2. Die Anweisung Set objElement… <\/b>l\u00f6st zwar noch keinen Fehler aus. Aber objElement <\/b>wird hier nicht gef\u00fcllt und der folgende Zugriff auf eine Eigenschaft von objElement <\/b>f\u00fchrt dann zum Fehler.<\/p>\n Bild 2: Fehler beim Zugriff auf ein XML-Element<\/span><\/b><\/p>\n Mit dem Namen eines Elements allein k\u00f6nnen Sie also nur auf ein Element zugreifen, wenn sich dieses direkt unterhalb des Objekts befindet, f\u00fcr das Sie die SelectSingleNode<\/b>-Methode aufrufen.<\/p>\n Daf\u00fcr m\u00fcssten Sie zuerst das Root-Element Bestellverwaltung <\/b>per IXMLDomElement<\/b>-Variable referenzieren und k\u00f6nnten dann von dort aus auf das Kategorie<\/b>-Element zugreifen:<\/p>\n Dies gibt den Inhalt des ersten Kategorie<\/b>-Elements aus.<\/p>\n An dieser Stelle ist es wichtig zu erw\u00e4hnen, dass die SelectSingleNode <\/b>immer das erste Element liefert, das dem angegebenen Ausdruck entspricht. W\u00e4hrend es nur ein Bestellverwaltung<\/b>-Element gibt, befinden sich darunter allerdings gleich sieben Kategorie<\/b>-Elemente. Davon liefert SelectSingleNode <\/b>dann das erste.<\/p>\n Das ist ein guter Anlass, die Funktion selectNodes <\/b>vorzustellen. Sie liefert nicht nur ein einziges Element zur\u00fcck, sondern kann auch einmal kein oder mehrere Elemente zur\u00fcckgeben. Diese kommen immer in einer Auflistung vom Typ DOMSelection<\/b>.<\/p>\n Wenn Sie die gefundenen Elemente mit der For Each<\/b>-Schleife durchlaufen wollen, definieren Sie wie im folgenden Beispiel sowohl ein Objekt namens objKategorie <\/b>mit dem Typ IXMLDOMElement <\/b>als Laufvariable sowie eines f\u00fcr die Auflistung namens objKategorien <\/b>mit dem Typ IXMLDOMSelection<\/b>.<\/p>\n Dann referenzieren Sie wieder das Root-Element und nutzen dann dessen selectNodes<\/b>-Funktion, um alle untergeordneten Kategorie<\/b>-Elemente zu ermitteln. Diese landen dann im Auflistungsobjekt objKategorien<\/b>. Dieses k\u00f6nnen wir dann per For Each<\/b>-Schleife mit der Laufvariablen objKategorie <\/b>durchlaufen. Innerhalb der Schleife geben wir wieder den Inhalt der XML-Eigenschaft aus:<\/p>\n Da die Ausgabe alle Kategorie<\/b>-Elemente umfasst, die selbst jeweils einige Artikel<\/b>-Elemente enthalten, sprengt die Ausgabe das Direktfenster. Also geben wir etwas weniger Umfangreiches aus, indem wir die Debug.Print<\/b>-Anweisung wie folgt ersetzen und damit gleich noch einen einfachen XPath-Ausdruck nutzen:<\/p>\n Da wir in diesem Fall nicht einfach den Inhalt der Eigenschaft XML <\/b>ausgeben wollen, sondern den Inhalt des Elements Kategoriename <\/b>selbst, verwenden wir die Eigenschaft nodeTypedValue<\/b>.<\/p>\n Die gefundenen Elemente k\u00f6nnen Sie auch per For…Next<\/b>-Schleife durchlaufen. Dann nutzen Sie die length<\/b>-Eigenschaft der IXMLDOMSelection<\/b>-Auflistung zur Bestimmung der Anzahl der Elemente.<\/p>\n \u00fcber die Item()<\/b>-Eigenschaft greifen Sie dann auf das jeweilige Element zu, wobei der Index 0-basiert ist, was f\u00fcr den Wertebereich der Schleife ber\u00fccksichtigt werden muss:<\/p>\n <\/p>\n<\/p>\n Nachdem Sie nun erfahren haben, wo und wie Sie \u00fcberhaupt XPath-Ausdr\u00fccke einsetzen k\u00f6nnen (wobei wir ja immer nur den Namen eines Elements als Ausdruck angegeben haben), wollen wir uns nun die wichtigsten Beispiele f\u00fcr XPath-Ausdr\u00fccke ansehen.<\/p>\n Dabei ist immer der Kontext wichtig, also von welchem Element des XML-Dokuments aus Sie das betroffene Element referenzieren wollen. F\u00fcr die ersten Beispiele gehen wir jeweils vom Root-Element aus, also vom Element Bestellverwaltung<\/b>.<\/p>\n Wenn Sie direkt vom DOMDocument<\/b>-Objekt auf die Kategorie<\/b>-Elemente unterhalb von Bestellverwaltung <\/b>zugreifen wollen, gelangen Sie so dorthin:<\/p>\n Wenn Sie alle Elemente eines Dokuments mit einem bestimmten Namen finden wollen, k\u00f6nnen Sie den Ausdruck \/\/Kategorie <\/b>verwenden:<\/p>\n Vorsicht, wenn sich auch in anderen Ebenen noch Elemente des gleichen Namens befinden – die werden dann auch ber\u00fccksichtigt.<\/p>\n Wenn Sie beispielsweise alle Elemente namens Artikelname <\/b>ermitteln wollen, die sich unterhalb des Elements Artikel <\/b>befinden, gelingt dies so:<\/p>\n Sollten Sie \u00fcberhaupt alle Elemente eines Dokuments durchlaufen wollen, dann nutzen Sie den XPath-Ausdruck \/\/*<\/b>. Die Elemente werden dann von oben nach unten durchlaufen:<\/p>\n Hier verwenden wir wieder einmal die Eigenschaft baseName<\/b>, um einfach die Namen der enthaltenen Elemente auszugeben. Die Ausgabe sieht dann etwa so aus:<\/p>\n Wenn Sie auf Nummer sicher gehen wollen und wissen, wo sich das gesuchte Element befindet, k\u00f6nnen Sie die Elemente von oben nach unten als XPath-Ausdruck angeben. Um zum Beispiel den Namen des ersten Artikels auszugeben, verwenden Sie den Ausdruck Bestellverwaltung\/Kategorie\/Artikel\/Artikelname<\/b>:<\/p>\n Alle untergeordneten Elemente etwa der Kategorie<\/b>-Elemente erhalten Sie, indem Sie vom DOMDocument<\/b>-Element den Ausdruck Bestellverwaltung\/Kategorie\/* <\/b>mit der Methode selectNodes <\/b>nutzen. Die folgende Prozedur gibt die Namen aller den Kategorie<\/b>-Elementen untergeordneten Elemente aus, also zum Beispiel Kategoriename<\/b>, Beschreibung <\/b>und Artikel<\/b>:<\/p>\n Das k\u00f6nnte man auf naive Weise und ohne Kenntnis der XPath-Syntax auch umst\u00e4ndlicher machen – zum Beispiel wie folgt:<\/p>\n Elemente zeichnen sich entweder durch den Inhalt aus oder durch den Wert ihrer Attribute. Fr\u00fcher oder sp\u00e4ter werden Sie XML-Dokumente nach Elementen mit solchen Eigenschaften durchforsten m\u00fcssen.<\/p>\n Wenn Sie ein Element mit einem bestimmten atomaren Wert suchen (ein atomarer Wert ist ein Wert, der keine weiteren untergeordneten Elemente aufweist), k\u00f6nnen Sie die Syntax mit einem Suchausdruck in eckigen Klammern gleich hinter dem Elementnamen nutzen. Wenn Sie etwa die Kategorie mit dem Wert Getr\u00e4nke <\/b>im Element Kategorienamen <\/b>suchen, sieht das wie folgt aus – hier geben wir den XML-Inhalt des gefundenen Objekts aus:<\/p>\n Vor dem Suchausdruck befindet sich also der Name des Elements, der Suchausdruck landet in eckigen Klammern und lautet etwa Kategoriename=““Getr\u00e4nke““<\/b>. Die Ausgabe des Ergebnisses haben wir diesmal in eine Pr\u00fcfung eingefasst, ob die Suche \u00fcberhaupt erfolgreich war und objKategorie <\/b>nicht gegebenenfalls noch leer ist, was beim Zugriff einen Fehler ausl\u00f6sen w\u00fcrde.<\/p>\n Wenn Sie nun alle Artikelnamen dieser Kategorie ausgeben m\u00f6chten, brauchen Sie keine weiteren Objekte zu erstellen, die Sie nach dem Herausfinden der Kategorie mit einem weiteren XPath-Ausdruck ermitteln und dann durchlaufen. Eine Liste aller Artikelnamen einer bestimmten Kategorie, beispielsweise der Kategorie Getr\u00e4nke<\/b>, finden Sie auch mit diesem Ausdruck (s. Listing 3):<\/p>\n Listing 3: Einlesen aller Artikelnamen der Artikel einer bestimmten Kategorie<\/span><\/b><\/p>\n Haben Sie etwas bemerkt Sie brauchen prinzipiell immer nur eine einzige selectNodes<\/b>– oder selectSingleNode<\/b>-Funktion zu nutzen, um direkt auf die Werte des gesuchten Elements zugreifen zu k\u00f6nnen, weil Sie immer so weit navigieren k\u00f6nnen, wie es der Anwendungsfall erfordert.<\/p>\n Manchmal brauchen Sie dennoch mehrere Aufrufe von selectNodes <\/b>oder selectSingleNode<\/b> – so etwa, wenn Sie mehrere Unterelemente eines Elements auswerten m\u00fcssen. Ein Artikel<\/b>-Element hat ja beispielsweise die Unterelemente Artikelname <\/b>und Einzelpreis<\/b>, die vermutlich auch einmal gemeinsam abgefragt werden m\u00fcssen.<\/p>\n In diesem Fall durchlaufen Sie dann eben alle Artikel<\/b>-Elemente der gew\u00fcnschten Kategorie und greifen dann in der Schleife \u00fcber alle Elemente auf die beiden Unterelemente Artikelname <\/b>und Einzelpreis <\/b>zu und geben diese aus:<\/p>\nBeispieldokument<\/h2>\n
<xml version=\"1.0\" encoding=\"UTF-16\">\n<Bestellverwaltung xmlns=\"http:\/\/www.w3.org\/TR\/REC-html40\">\n <Kategorie KategorieID=\"1\">\n <Kategoriename>Getr\u00e4nke<\/Kategoriename>\n <Beschreibung>Alkoholfreie Getr\u00e4nke, Kaffee, Tee, Bier<\/Beschreibung>\n <Artikel ArtikelID=\"1\">\n <Artikelname>Chai<\/Artikelname>\n <Einzelpreis>EUR 9.00<\/Einzelpreis>\n <\/Artikel>\n <Artikel ArtikelID=\"2\">\n <Artikelname>Chang<\/Artikelname>\n <Einzelpreis>EUR 9.50<\/Einzelpreis>\n <\/Artikel>\n ..\n <\/Kategorie>\n <Kategorie KategorieID=\"2\">\n <Kategoriename>Gew\u00fcrze<\/Kategoriename>\n <Beschreibung>S\u00fc\u00dfe und saure So\u00dfen, Gew\u00fcrze<\/Beschreibung>\n <Artikel ArtikelID=\"3\">\n <Artikelname>Aniseed Syrup<\/Artikelname>\n <Einzelpreis>EUR 5.00<\/Einzelpreis>\n <\/Artikel>\n <Artikel ArtikelID=\"4\">\n <Artikelname>Chef Anton''''s Cajun Seasoning<\/Artikelname>\n <Einzelpreis>EUR 11.00<\/Einzelpreis>\n <\/Artikel>\n ...\n <\/Kategorie>\n ...\n<\/Bestellverwaltung><\/pre>\n
Zugriff mit VBA XPath \u00fcber den Speicher<\/h2>\n
Public Sub <\/span>DokumentLaden()\n Dim <\/span>strDatei As String<\/span>\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\n strDatei = CurrentProject.Path & \"KategorienUndArtikel.xml\"\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\n objXML.Load strDatei\n If <\/span>Not<\/span> Len<\/span>(objXML.XML) = 0 Then<\/span>\n Debug.Print<\/span> objXML.XML\n Else<\/span>\n Debug.Print<\/span> objXML.parseError.errorCode, objXML.parseError.reason\n End If<\/span>\nEnd Sub<\/span><\/pre>\nXPath per VBA nutzen<\/h2>\n
Public Function <\/span>GetDocument() As <\/span>MSXML2.DOMDocument\n Dim <\/span>strDatei As String<\/span>\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument\n strDatei = CurrentProject.Path & \"KategorienUndArtikel.xml\"\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument\n objXML.Load strDatei\n If <\/span>Not<\/span> Len<\/span>(objXML.XML) = 0 Then<\/span>\n Set<\/span> GetDocument = objXML\n Else<\/span>\n MsgBox<\/span> \"Fehler \" & objXML.parseError.errorCode & \": \" & objXML.parseError.reason\n End If<\/span>\nEnd Function<\/span><\/pre>\nAuf das Root-Element zugreifen<\/h2>\n
Public Sub <\/span>RootelementHolen()\n Dim <\/span>objElement As <\/span>MSXML2.IXMLDOMElement\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Set<\/span> objDocument = GetDocument\n Set<\/span> objElement = _\n objDocument.selectSingleNode(\"Bestellverwaltung\")\n Debug.Print<\/span> objElement.XML\nEnd Sub<\/span><\/pre>\nSet<\/span> objElement = objDocument.selectSingleNode(\"Kategorie\")<\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2016_04\/pic_1050_002.png\")
<\/p>\nAuf ein direktes Unterelement des Root-Elements zugreifen<\/h2>\n
Dim <\/span>objBestellverwaltung As <\/span>MSXML2.IXMLDOMElement\nDim <\/span>objKategorie As <\/span>MSXML2.IXMLDOMElement\nDim <\/span>objDocument As <\/span>MSXML2.DOMDocument\nSet<\/span> objDocument = GetDocument\nSet<\/span> objBestellverwaltung = objDocument.selectSingleNode(\"Bestellverwaltung\")\nSet<\/span> objKategorie = objBestellverwaltung. selectSingleNode(\"Kategorie\")\nDebug.Print<\/span> objKategorie.XML<\/pre>\nAuf mehrere Elemente zugreifen<\/h2>\n
Public Sub <\/span>KategorienHolen()\n Dim <\/span>objBestellverwaltung As <\/span>MSXML2.IXMLDOMElement\n Dim <\/span>objKategorie As <\/span>MSXML2.IXMLDOMElement\n Dim <\/span>objKategorien As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Set<\/span> objDocument = GetDocument\n Set<\/span> objBestellverwaltung = objDocument.selectSingleNode(\"Bestellverwaltung\")\n Set<\/span> objKategorien = objBestellverwaltung.selectNodes(\"Kategorie\")\n For Each objKategorie In objKategorien\n Debug.Print<\/span> objKategorie.XML\n Next<\/span> objKategorie\nEnd Sub<\/span><\/pre>\nDebug.Print<\/span> objKategorie.selectSingleNode( \"Kategoriename\").nodeTypedValue<\/pre>\nDim <\/span>i As Integer<\/span>\n...\nSet<\/span> objKategorien = objBestellverwaltung.selectNodes(\"Kategorie\")\nFor i = 0 To objKategorien.length - 1\n Debug.Print<\/span> objKategorien.Item(i).selectSingleNode( \"Kategoriename\").nodeTypedValue\nNext<\/span> i<\/pre>\nBeispiele f\u00fcr XPath-Ausdr\u00fccke<\/h2>\n
Zugriff auf Enkel-Elemente<\/h2>\n
Set<\/span> objKategorien = objDocument.selectNodes(\"Bestellverwaltung\/Kategorie\")\nFor i = 0 To objKategorien.length - 1\n Debug.Print<\/span> objKategorien.Item(i).selectSingleNode( \"Kategoriename\").nodeTypedValue\nNext<\/span> i<\/pre>\nAlle Elemente mit bestimmtem Namen<\/h2>\n
Set<\/span> objKategorien = objDocument.selectNodes(\"\/\/Kategorie\")<\/pre>\nSet<\/span> objArtikel = objDocument.SelectNodes(\"\/\/Artikel\/Artikelname\")<\/pre>\nAlle Elemente mit VBA XPath ermitteln<\/h2>\n
Dim <\/span>objObjects As <\/span>MSXML2.IXMLDOMSelection\nDim <\/span>objDocument As <\/span>MSXML2.DOMDocument\nDim <\/span>i As Integer<\/span>\nSet<\/span> objDocument = GetDocument\nSet<\/span> objObjects = objDocument.selectNodes(\"\/\/*\")\nFor i = 0 To objObjects.length - 1\n Debug.Print<\/span> objObjects.Item(i).baseName\nNext<\/span> i<\/pre>\nBestellverwaltung\nKategorie\nKategoriename\nBeschreibung\nArtikel\nArtikelname\nEinzelpreis\nArtikel\nArtikelname\nEinzelpreis\nArtikel\nArtikelname\n...<\/pre>\n
Von oben nach unten mit VBA XPath<\/h2>\n
Public Sub <\/span>VonObenNachUnten()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Set<\/span> objDocument = GetDocument\n Debug.Print<\/span> objDocument.selectSingleNode( _\n \"Bestellverwaltung\/Kategorie\/Artikel\/Artikelname\"). nodeTypedValue\nEnd Sub<\/span><\/pre>\nAlle direkt untergeordneten Elemente<\/h2>\n
Public Sub <\/span>AlleUntergeordneten()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Dim <\/span>objKinder As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objKind As <\/span>MSXML2.IXMLDOMElement\n Set<\/span> objDocument = GetDocument\n Set<\/span> objKinder = objDocument. selectNodes(\"Bestellverwaltung\/Kategorie\/*\")\n For Each objKind In objKinder\n Debug.Print<\/span> objKind.baseName\n Next<\/span> objKind\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>AlleUntergeordneten_Naiv()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Dim <\/span>objBestellverwaltung As <\/span>MSXML2.IXMLDOMElement\n Dim <\/span>objKategorien As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objKategorie As <\/span>MSXML2.IXMLDOMElement\n Dim <\/span>objKinder As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objKind As <\/span>MSXML2.IXMLDOMElement\n Set<\/span> objDocument = GetDocument\n Set<\/span> objBestellverwaltung = objDocument.selectSingleNode(\"Bestellverwaltung\")\n Set<\/span> objKategorien = objBestellverwaltung.selectNodes(\"Kategorie\")\n For Each objKategorie In objKategorien\n Set<\/span> objKinder = objKategorie.selectNodes(\"*\")\n For Each objKind In objKinder\n Debug.Print<\/span> objKind.baseName\n Next<\/span> objKind\n Next<\/span> objKategorie\nEnd Sub<\/span><\/pre>\nBestimmte Elemente mit VBA XPath ermitteln<\/h2>\n
Kategorie-Element mit bestimmtem Namen<\/h2>\n
Public Sub <\/span>KategorieMitBestimmtemNamen()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Dim <\/span>objKategorie As <\/span>MSXML2.IXMLDOMElement\n Set<\/span> objDocument = GetDocument\n Set<\/span> objKategorie = objDocument.selectSingleNode( \"\/\/Kategorie[Kategoriename=''''Getr\u00e4nke']\")\n If <\/span>Not<\/span> objKategorie Is Nothing Then<\/span>\n Debug.Print<\/span> objKategorie.XML\n End If<\/span>\nEnd Sub<\/span><\/pre>\nAlle Artikelnamen einer bestimmten Kategorie<\/h2>\n
Public Sub <\/span>ArtikelEinerKategorie()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Dim <\/span>objArtikelnamen As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objArtikelname As <\/span>MSXML2.IXMLDOMElement\n Set<\/span> objDocument = GetDocument\n Set<\/span> objArtikelnamen = _\n objDocument.selectNodes(\"\/\/Kategorie[Kategoriename=''''Getr\u00e4nke']\/Artikel\/Artikelname\")\n For Each objArtikelname In objArtikelnamen\n Debug.Print<\/span> objArtikelname.nodeTypedValue\n Next<\/span> objArtikelname\nEnd Sub<\/span><\/pre>\n\/\/Kategorie[Kategoriename=''''Getr\u00e4nke']\/Artikel\/Artikelname<\/pre>\n
Artikeleigenschaften eines bestimmten Artikels ausgeben<\/h2>\n
Public Sub <\/span>UnterelementeArtikelEinerKategorie()\n Dim <\/span>objDocument As <\/span>MSXML2.DOMDocument\n Dim <\/span>objArtikelliste As <\/span>MSXML2.IXMLDOMSelection\n Dim <\/span>objArtikel As <\/span>MSXML2.IXMLDOMElement\n Set<\/span> objDocument = GetDocument\n Set<\/span> objArtikelliste = objDocument.selectNodes( \"\/\/Kategorie[Kategoriename=''''Getr\u00e4nke']\/Artikel\")\n For Each objArtikel In objArtikelliste\n Debug.Print<\/span> objArtikel.selectSingleNode( \"Artikelname\").nodeTypedValue\n Debug.Print<\/span> objArtikel.selectSingleNode( \"Einzelpreis\").nodeTypedValue\n Next<\/span> objArtikel\n