excel vba xml文件操作

<mainnote>

     <subnote>

    </subnote>

    <subnote>

    <subnote>

</mainnote>

Dim wsXml As Worksheet

Dim xmlDoc As Object

Dim objDOM, n, nodes, subNodes As Object, ns, i, j

Set objDOM = CreateObject("MSXML.DOMDocument")

objDOM.Load (ThisWorkbook.Path & "\xxxxxx.xml")

objDOM.async = False

strPath = Left(strPath, Len(strPath) - Len(strCbf) - 12)

Set ns =objDOM.SelectNodes("//mainnote//subnote") 
  'ns就得到了所有subnote的一个集合

 Debug.Print ns.Length

Dim k

For i = 1 Tons.Length        '可以用Length遍历所有subnote

       If ns.Item(i - 1).ChildNodes(0).Text <> "xxx" Then 'name    '用Item() 去取单独subnote

           

          '用SelectSingleNode 根据字符串筛选要得到的某个node

          '用GetEleentsByTagname 得到node下的复合tagname条件的所有标签

        Set subNodes = ns.Item(i-1).SelectSingleNode("id").getElementsByTagName_r("name")

           Debug.Print subNodes.Length

           For k = 0 To subNodes.Length - 1

               

               Debug.Print subNodes.Item(k).Text

               

               If (subNodes.Item(k).Text = "ID") Then

                   wsXml.Cells(index, "E") = "Yes"

               End If

                   

            

               

           Next