读取xml文件结点属性
Sub 读取属性()
'前期绑定
Dim xDox As New DOMDocument60 '定义文档类型
'后期绑定
'Dim xDox As Object
'Set xDox = CreateObject("MSXML2.DOMDocument")
Dim Root As IXMLDOMElement
If (xDox.Load(ThisWorkbook.Path & "\xml属性.xml")) Then
Set Root = xDox.DocumentElement '获取根节点
' MsgBox Root.nodeName ''获取根节点名字
'MsgBox Root.ChildNodes(i).Attributes '子节点的属性， Root.ChildNodes(i).Attributes.Length ，属性个数
' Root.ChildNodes(i).Attributes(0).nodeName '属性0的名称
'MsgBox Root.ChildNodes(i).Attributes(0).Text '属性0的内容
Dim i, j As Integer
'获取标题
With Root.ChildNodes(0)
For i = 0 To .Attributes.Length - 1
' MsgBox .ChildNodes(i).nodeName '获取子节点的子节点的名字
Cells(1, i + 1).Value = .Attributes(i).nodeName ' 把值存入单元格
Next i
End With
For i = 0 To Root.ChildNodes.Length - 1
With Root.ChildNodes(i)
For j = 0 To .Attributes.Length - 1
Cells(i + 2, j + 1).Value = .Attributes(j).Text ' 把值存入单元格
Next j
End With
Next i
End If
End Sub
读取xml文件结点
Sub 读取节点()
'前期绑定
Dim xDox As New DOMDocument60 '定义文档类型
'后期绑定
'Dim xDox As Object
'Set xDox = CreateObject("MSXML2.DOMDocument")
Dim Root As IXMLDOMElement
If (xDox.Load(ThisWorkbook.Path & "\xml节点.xml")) Then '加载文件
Set Root = xDox.DocumentElement '获取根节点
' MsgBox Root.nodeName '获取根节点名字
'MsgBox Root.ChildNodes.Length '子节点个数
'MsgBox Root.ChildNodes(0).nodeName '根节点的第一个子节点的名字
'MsgBox Root.ChildNodes(0).ChildNodes(0).nodeName '根节点的第一个子节点的 子节点的名字
' MsgBox Root.ChildNodes(0).ChildNodes(0).Text '根节点的第一个子节点的 子节点的内容
Dim i, j As Integer
With Root.ChildNodes(0)
For i = 0 To .ChildNodes.Length - 1
' MsgBox .ChildNodes(i).nodeName '获取子节点的子节点的名字
Cells(1, i + 1).Value = .ChildNodes(i).nodeName ' 把值存入单元格
Next i
End With
For i = 0 To Root.ChildNodes.Length - 1 '获取子节点的个数，将子节点的内容输出到单元格
With Root.ChildNodes(i)
For j = 0 To .ChildNodes.Length - 1
Cells(i + 2, j + 1) = .ChildNodes(j).Text
Next
End With
Next i
End If
End Sub
