Extract XML-Knoten-Namen in VBA

Question

Kontext

In einem Beispiel XML-Datei würden einige Daten in folgendem Format sein:

<A1> 
    <B1> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B1> 
    <B2> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B2> 
</A1> 
<A2> 
    <B1> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B1> 
    <B2> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B2> 
</A2> 

Meine Frage

I iterieren müssen die Knoten, um das folgende Ergebnis zu erhalten:

A1B1C1 
A1B1C2 
A1B1C3 
A1B2C1 
A1B2C2 
A1B2C3 

Ich habe viele Male versucht, aber konnte dieses Ergebnis nicht bekommen, kann mir jemand mit diesem Dank helfen.

Answer 1

Zuerst würde ich empfehlen, die Bibliothek "Microsoft XML, vx.x" zu verwenden, wobei x für die neueste verfügbare Version steht (sollte 6.0 sein). Danach bist du gut zu gehen. Aber die Dinge, die man bei der Arbeit mit XML in VBA beachten sollte, sind zu weit gefasst, um sie in einer Antwort zu erfassen. Ich werde hier den Code liefern, obwohl Sie die gewünschte Ausgabe zu erhalten:

Sub parse_xml() 

    Dim XmlFileName As String: XmlFileName = "C:\Path\Filename.xml" 
    Dim XmlDocument As New MSXML2.DOMDocument60 
    Dim NodeA As IXMLDOMNode 
    Dim NodeB As IXMLDOMNode 
    Dim NodeC As IXMLDOMNode 

    XmlDocument.Load XmlFileName 

    For Each NodeA In XmlDocument.DocumentElement.ChildNodes 
     For Each NodeB In NodeA.ChildNodes 
      For Each NodeC In NodeB.ChildNodes 
       Debug.Print NodeC.ParentNode.ParentNode.BaseName & NodeC.ParentNode.BaseName & NodeC.BaseName 
      Next NodeC 
     Next NodeB 
    Next NodeA 

End Sub 

Bitte beachten Sie, dass ich Ihre Datei ein wenig zu erweitern, um eine gültige XML-Datei zu machen, die in die XmlDocument Variable geladen werden kann . Die XML-Datei ich für dieses Beispiel verwendet wird, ist die folgende:

<?xml version="1.0" encoding="UTF-8"?> 
<data> 
    <A1> 
    <B1> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B1> 
    <B2> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
     </B2> 
    </A1> 
    <A2> 
    <B1> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
    </B1> 
    <B2> 
     <c1>value</c1> 
     <c2>value</c2> 
     <c3>value</c3> 
     </B2> 
    </A2> 
</data> 

Dies wird die folgende Ausgabe erzeugen (I Debug.Print nur verwendet, wie Sie sehen können):

A1B1c2 
A1B1c3 
A1B2c1 
A1B2c2 
A1B2c3 
A2B1c1 
A2B1c2 
A2B1c3 
A2B2c1 
A2B2c2 
A2B2c3 

Exkurs in der Ende: Im Gegensatz zu dem, was Pierre kommentiert habe, denke ich, dass das Parsen von XML in VBA die erreichbare Aufgabe ist. Aus meiner Erfahrung benötigen Sie nur die Bibliothek, die ich am Anfang des Posts empfohlen habe, um das eigentliche Parsen der Datei durchzuführen. Ich habe mit ziemlich komplexen XML-Dateien gearbeitet, die nur diese Bibliothek zum Parsen verwenden.

Edit: Dies ist der Code, dass nur Werte für die gewünschte Kriterium extrahieren:

Sub parse_xml() 

    Dim XmlFileName As String: XmlFileName = "C:\Path\Filename.xml" 
    Dim XmlDocument As New MSXML2.DOMDocument60 
    Dim NodeA As IXMLDOMNode 
    Dim NodeB As IXMLDOMNode 
    Dim NodeC As IXMLDOMNode 

    Dim DesiredA As String: DesiredA = "A2" 'Enter your desired A here 

    XmlDocument.Load XmlFileName 

    For Each NodeA In XmlDocument.DocumentElement.ChildNodes 
     If NodeA.BaseName = DesiredA Then 'This is the new line that selects your desired A 
      For Each NodeB In NodeA.ChildNodes 
       For Each NodeC In NodeB.ChildNodes 
        Debug.Print NodeC.ParentNode.ParentNode.BaseName & NodeC.ParentNode.BaseName & NodeC.BaseName 
       Next NodeC 
      Next NodeB 
     End If 'End of the If-Statement 
    Next NodeA 

End Sub