1,现有一个XML文件,里面是图书信息,图书的信息由节点保存,内容如下
2.将信息提取出来后的效果如下图所示
3.完整代码和解释如下
Option Explicit
Sub 读取XML节点()
'后期绑定
'Dim xdoc As Object
'Set xdoc = CreateObject("MSXML2.DOMDocument")
'前期绑定
Dim xdoc As New DOMDocument60 '声明的同时创建XML对象
Dim b As Boolean, root As IXMLDOMElement
b = xdoc.Load(ThisWorkbook.Path & "\BookStore1.xml")
If b = True Then
Set root = xdoc.DocumentElement '获取根节点
Dim i As Integer, j As Integer
'获取列标题
With root.ChildNodes(0) '根节点的子节点
For i = 0 To .ChildNodes.Length - 1 '子节点的子节点个数
Cells(1, i + 1) = .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).Value = .ChildNodes(j).Text
Next j
End With
Next i
Else
MsgBox "加载失败,指定文件可能不存在"
End If
End Sub