XML文档元素的遍历、添加和删除操作的方法

2019年8月13日23:38:13XML文档元素的遍历、添加和删除操作的方法已关闭评论 78 views

借助于DOM对象,在Excel中,用户可以编写VBA程序方便地对XML文件进行读取、遍历、修改以及删除等操作。本文分别介绍XML文档元素的遍历、添加和删除操作的方法

1、启动Excel并创建一个新文档,打开Visual Basic编辑器,创建一个模块,在模块的“代码”窗口中输入如下代码。按F5键运行程序代码,在“立即窗口”中显示XML文档数据,如图1所示。

Sub GetXMLNode()

Dim xmldoc As DOMDocument

Dim nodeList As IXMLDOMNodeList

Dim node As IXMLDOMNode

Set xmldoc=New DOMDocument

xmldoc.async=False

xmldoc.Load ThisWorkbook.Path&"\学生信息.xml" '加载XML数据文档

Set nodeList=xmldoc.getElementsByTagName("学生信息") '获取学生信息节点序列

For Each node In nodeList '遍历节点序列中所有节点

Debug.Print node.XML '输出当前节点的XML字符串

Next

Set node=Nothing

Set nodeList=Nothing

Set xmldoc=Nothing

End Sub

XML文档元素的遍历、添加和删除操作的方法

图1 在“立即窗口”中显示XML文档数据

2、在“代码”窗口中继续输入如下程序代码。运行程序代码,在“立即窗口”中可以看到程序运行的结果。此时,学生信息节点都添加了“入学日期”节点项,如图2所示。程序在当前Excel文档相同的文件夹中生成名为“学生信息New.xml”的文件,其中学生信息的节点添加了相应的“入学日期”节点项,并且这些节点都以当前时间作为初始设置数据,如图3所示。

Sub AddElement()

Dim xmldoc As DOMDocument

Dim node As IXMLDOMNode

Dim rootNode As IXMLDOMNode

Dim newNode As IXMLDOMNode

Dim rtnnode As IXMLDOMNode

Set xmldoc=New DOMDocument

xmldoc.Load ThisWorkbook.Path&"\学生信息.xml" '加载XML数据文档

Set rootNode=xmldoc.DocumentElement '获取文档根节点

For Each node In rootNode.ChildNodes '遍历根节点所有学生信息子节点

Set newNode=xmldoc.createElement("入学日期") '创建"入学日期"元素节点

Set rtnnode=node.appendChild(newNode) '将新节点插入到当前学生信息节点

rtnnode.Text=Format(Now,"yyyy-mm-dd") '设置当前插入节点的文本信息

Debug.Print node.XML '输出当前学生信息节点的XML字符串

Next

On Error Resume Next

Kill ThisWorkbook.Path&"\学生信息New.xml" '删除临时文档

On Error GoTo 0

xmldoc.Save ThisWorkbook.Path&"\学生信息New.xml" '保存XML文档

Set node=Nothing

Set xmldoc=Nothing

End Sub

XML文档元素的遍历、添加和删除操作的方法

图2 “立即窗口”中显示的程序运行结果

XML文档元素的遍历、添加和删除操作的方法

图3 XML文档中添加了新的节点项

提示

程序使用For...Each In结构遍历XML文档的所有节点,使用节点对象的AppendChild方法来实现节点的添加。在默认情况下,AppendChild方法将新建立的节点插入到父节点中最后一个子节点之后。如果需要将节点插入到其他节点之前,则需要使用InsertBefore方法。该方法除了接受节点对象参数外,还接受目标节点对象,插入节点将位于该目标节点之前。

3、在“代码”窗口中输入如下代码。运行程序代码,在“立即窗口”中显示程序运行结果。这里,“入学日期”节点项已经被移除,如图4所示。打开“学生信息New.xml”文件,可以查看到删除XML文档元素后的文档内容,如图5所示。

Sub DeleteElement()

Dim xmldoc As DOMDocument

Dim node As IXMLDOMNode,rootNode As IXMLDOMNode

Set xmldoc=New DOMDocument

xmldoc.Load ThisWorkbook.Path&"\学生信息New.xml" '加载XML数据文档

Set rootNode=xmldoc.DocumentElement '获取根节点

For Each node In rootNode.ChildNodes '遍历所有"学生信息"

node.RemoveChild node.ChildNodes(node.ChildNodes.Length-1) '移除"入学日期"节点

Debug.Print node.XML '输出节点的XML字符串

Next

On Error Resume Next

Kill ThisWorkbook.Path&"\学生信息New.xml" '删除临时文档

On Error GoTo 0

xmldoc.Save ThisWorkbook.Path&"\学生信息New.xml" '重新保存文档

Set node=Nothing

Set xmldoc=Nothing

End Sub

XML文档元素的遍历、添加和删除操作的方法

图4 “立即窗口”中显示程序运行结果

XML文档元素的遍历、添加和删除操作的方法

图5 XML文档中的数据结构

提示

程序中使用RemoveChild方法将“入学日期”节点项从XML文档中移除。