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

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

圖1　引用XML庫文件

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

Sub CreatXMLDocument()

Dim xmlDoc1 As New DOMDocument '新建Document文檔對象

Dim xmlDoc2 As New DOMDocument '新建Document文檔對象

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對象使用XML字符串加載數(shù)據(jù)

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

Set xmlDoc1=Nothing

Set xmlDoc2=Nothing

End Sub

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

提示

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

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

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