如何用VBA返回XML的指定条件的所有节点？

作者：绿色风分类：时间：2022-08-17 浏览：92

楼主
wise

Q: 如何用VBA返回XML的指定条件的所有节点？
A：ALT+F11→插入模块→在模块中输入如下代码:

Sub FindNode()
Dim MyDOM As Object
Dim MyNodes As Object
Dim MyOxmNode As Object
'装载xml文档到dom 文档中
Set MyDOM = CreateObject("MSXML.DOMDocument")
MyDOM.Load (ThisWorkbook.Path & "\ET.xml")
'查找并选择文档中的指定条件的所有结点，有点类似SQL里面查询所有值与查询部分值的区别
Set MyNodes = MyDOM.SelectNodes("//Employee[score<80]")
'注意条件：//Employee[score<80]，
'遍历节点并输出每个符合条件的节点
For Each MyOxmNode In MyNodes
MsgBox MyOxmNode.Text
Next
End Sub

特别值得注意的是：//Employee[score<80] 这个知识点的使用。
对很多没有熟悉XML的朋友会忽视，就像SQL里面改变条件，查询处理的结果就不一样。

VBA与XML.rar

2楼
eliane_lei

进来学习！谢谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表