'続き
　'ノードパラメータ表示
　For Each NodeAttr In Node.Attributes
　　Cells(Row, "A").Value = No
　　Cells(Row, "F").Value = NodeAttr.Name
　　Cells(Row, "G").Value = NodeAttr.Value
　　Row = Row + 1
　　No = No + 1
　Next
　'階層制限
　If Level = 4 Then Exit Sub

　'同じ名前の子ノードを 最初の一つに集約
　For Each Node1 In Node.ChildNodes
　　　Do
　　　　　Set NodeList = Node1.ParentNode.SelectNodes(Node1.nodeName)
　　　　　If NodeList.Length = 1 Then Exit Do
　　　　　For Each Node2 In NodeList(1).ChildNodes
　　　　　　　NodeList(0).appendChild Node2
　　　　　Next
　　　　　Node1.ParentNode.RemoveChild NodeList(1)
　　　Loop
　Next
　'子ノード処理(再帰)
　For Each Node1 In Node.ChildNodes
　　　Call ListXml(Node1, Row, No, Level + 1)
　Next
End Sub