抽出XMLは、VBAで名前をノード

Question

コンテキスト例のXMLファイルで

、いくつかのデータは次の形式で次のようになります。

<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> 

私は繰り返す必要

私の質問次の結果を得る：

A1B1C1 
A1B1C2 
A1B1C3 
A1B2C1 
A1B2C2 
A1B2C3 

私は何度も試してみましたが、この結果を得ることができませんでした。

Answer 1

最初に、 "Microsoft XML、vx.x"というライブラリを使用することをお勧めします。ここで、xは最新のバージョンです（6.0にする必要があります）。その後、あなたは行くのが良いです。しかし、VBAでXMLを扱う際に考慮すべきことは、答えには広範囲に及ぶことです。でも、私はあなたの所望の出力を得るためにここにコードを提供します：

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 

は、私はそれをXmlDocument変数にロードすることができ、有効なXML-ファイルにするために、あなたのファイルを少し拡大しなければならなかったことに注意してください。 （あなたが見ることができるように私だけを使用します。Debug.Print）

<?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> 

これは、次のような出力を生成します：次されて、私はこの例のために使用されるXMLファイル

A1B1c2 
A1B1c3 
A1B2c1 
A1B2c2 
A1B2c3 
A2B1c1 
A2B1c2 
A2B1c3 
A2B2c1 
A2B2c2 
A2B2c3 

サイドノートでend：ピエールのコメントとは違って、私はVBAでのXMLの解析は達成可能な作業だと思う。私の経験から、ファイルの実際の解析を行うには、投稿の一番上にあるライブラリをお勧めします。私は、かなり複雑なXML-Filesを解析するためにそのライブラリだけを使って作業しました。

編集：

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