VBA XML信息提取

最新推荐文章于 2023-03-22 16:42:14 发布

转载最新推荐文章于 2023-03-22 16:42:14 发布 · 374 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/luoye00/p/10695091.html

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

--------------------- 
作者：qq_41777527 
来源：优快云 
原文：https://blog.youkuaiyun.com/qq_41777527/article/details/80886780 
版权声明：本文为博主原创文章，转载请附上博文链接！

转载于:https://www.cnblogs.com/luoye00/p/10695091.html