如何用VBA在XML中查找并删除满足条件的empid所有记录？

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

楼主 wise	Q: 如何用VBA在XML中查找并删除满足条件的empid所有记录？ A：ALT+F11→插入模块→在模块中输入如下代码: Sub FindNode() Dim MyDOM As Object Dim MyNode As Object Dim MyNodes As Object '装载xml文档到dom 文档中 Set MyDOM = CreateObject("MSXML.DOMDocument") MyDOM.Load (ThisWorkbook.Path & "\ET.xml") '查找并选择满足条件的empid所有记录 Set MyNodes = MyDOM.SelectNodes("//Employee[empid='wise']") '("//Employee[empid='wise']") '查找并删除满足条件的empid所有记录 For Each MyNode In MyNodes MyNode.ParentNode.RemoveChild MyNode Next '新文件另存为MyET.xml MyDOM.Save ThisWorkbook.Path & "\MyET.xml" End Sub VBA与XML.rar
2楼亡者天下	不错，学习一下！
3楼 jeker	很受用

免责声明

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

评论列表