XML文檔元素的遍歷、添加和刪除操作的方法
1、啟動Excel并創(chuàng)建一個新文檔,打開Visual Basic編輯器,創(chuàng)建一個模塊,在模塊的“代碼”窗口中輸入如下代碼。按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("學生信息") '獲取學生信息節(jié)點序列
For Each node In nodeList '遍歷節(jié)點序列中所有節(jié)點
Debug.Print node.XML '輸出當前節(jié)點的XML字符串
Next
Set node=Nothing
Set nodeList=Nothing
Set xmldoc=Nothing
End Sub
圖1 在“立即窗口”中顯示XML文檔數據
2、在“代碼”窗口中繼續(xù)輸入如下程序代碼。運行程序代碼,在“立即窗口”中可以看到程序運行的結果。此時,學生信息節(jié)點都添加了“入學日期”節(jié)點項,如圖2所示。程序在當前Excel文檔相同的文件夾中生成名為“學生信息New.xml”的文件,其中學生信息的節(jié)點添加了相應的“入學日期”節(jié)點項,并且這些節(jié)點都以當前時間作為初始設置數據,如圖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 '獲取文檔根節(jié)點
For Each node In rootNode.ChildNodes '遍歷根節(jié)點所有學生信息子節(jié)點
Set newNode=xmldoc.createElement("入學日期") '創(chuàng)建"入學日期"元素節(jié)點
Set rtnnode=node.appendChild(newNode) '將新節(jié)點插入到當前學生信息節(jié)點
rtnnode.Text=Format(Now,"yyyy-mm-dd") '設置當前插入節(jié)點的文本信息
Debug.Print node.XML '輸出當前學生信息節(jié)點的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
圖2 “立即窗口”中顯示的程序運行結果
圖3 XML文檔中添加了新的節(jié)點項
提示
程序使用For...Each In結構遍歷XML文檔的所有節(jié)點,使用節(jié)點對象的AppendChild方法來實現節(jié)點的添加。在默認情況下,AppendChild方法將新建立的節(jié)點插入到父節(jié)點中最后一個子節(jié)點之后。如果需要將節(jié)點插入到其他節(jié)點之前,則需要使用InsertBefore方法。該方法除了接受節(jié)點對象參數外,還接受目標節(jié)點對象,插入節(jié)點將位于該目標節(jié)點之前。
3、在“代碼”窗口中輸入如下代碼。運行程序代碼,在“立即窗口”中顯示程序運行結果。這里,“入學日期”節(jié)點項已經被移除,如圖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 '獲取根節(jié)點
For Each node In rootNode.ChildNodes '遍歷所有"學生信息"
node.RemoveChild node.ChildNodes(node.ChildNodes.Length-1) '移除"入學日期"節(jié)點
Debug.Print node.XML '輸出節(jié)點的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
圖4 “立即窗口”中顯示程序運行結果
圖5 XML文檔中的數據結構
繼續(xù)查找其他問題的答案?
-
Excel 2019如何使用復制、粘貼命令插入Word數據?(視頻講解)
2021-01-257次播放
-
2021-01-2227次播放
-
2021-01-2210次播放
-
2021-01-2212次播放
-
2021-01-226次播放
-
2021-01-223次播放
-
2021-01-222次播放
-
Excel 2019如何利用開始選項卡進入篩選模式?(視頻講解)
2021-01-223次播放
-
2021-01-223次播放
-
2021-01-222次播放
點擊加載更多評論>>