如何在Excel中使用DOM對(duì)象加載XML文檔？

1、啟動(dòng)Excel 2013并打開Visual Basic編輯器，選擇“工具”|“引用”命令打開“引用”對(duì)話框，在“可使用的引用”列表中選擇"Microsoft XML,v6.0"選項(xiàng)，如圖1所示。單擊“確定”按鈕即可實(shí)現(xiàn)對(duì)XML庫(kù)文件的引用。

圖1　引用XML庫(kù)文件

2、在工程資源管理器中添加一個(gè)模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖2所示。具體的程序代碼如下所示：

Sub CreatXMLDocument()

Dim xmlDoc1 As New DOMDocument '新建Document文檔對(duì)象

Dim xmlDoc2 As New DOMDocument '新建Document文檔對(duì)象

Dim strTemp As String

xmlDoc1.async=False

xmlDoc1.Load ThisWorkbook.Path&"\學(xué)生信息.xml" '直接加載XML文檔

strTemp=xmlDoc1.XML '保存XML字符串

Debug.Print strTemp '輸出XML字符串

xmlDoc2.LoadXML strTemp 'Document對(duì)象使用XML字符串加載數(shù)據(jù)

Debug.Print xmlDoc2.XML '輸出XML字符串

Set xmlDoc1=Nothing

Set xmlDoc2=Nothing

End Sub

圖2　插入模塊并輸入程序代碼

提示

代碼第5行使XML文件的下載不被同步處理。在XML中，async屬性的取值為True時(shí)，表示load()方法可在下載完成之前，向調(diào)用程序返回控制權(quán);取值為False時(shí)，則表示必須完成文件的下載，才能返回控制權(quán)。

3、按F5鍵運(yùn)行以上過(guò)程，此時(shí)在“立即窗口”中將顯示“學(xué)生信息.xml”文檔數(shù)據(jù)，如圖3所示。

圖3　程序運(yùn)行的結(jié)果