對(duì)于XML而言，DOM文檔對(duì)象模型是一個(gè)對(duì)象化的數(shù)據(jù)接口，該對(duì)象模型包括多個(gè)對(duì)象集合，通過(guò)操作這些對(duì)象，可以輕松地操縱XML文檔的數(shù)據(jù)。以下是學(xué)習(xí)啦小編為您帶來(lái)的關(guān)于在Excel中使用DOM對(duì)象加載XML文檔的方法，希望對(duì)您有所幫助。

　　在Excel中使用DOM對(duì)象加載XML文檔的方法

　　1、啟動(dòng)Excel 2013并打開(kāi)Visual Basic編輯器，選擇“工具”|“引用”命令打開(kāi)“引用”對(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屬性的取值為T(mén)rue時(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é)果

猜你喜歡：

1.如何用excel制作課程表的方法

2.如何在EXCEL制作樹(shù)狀圖表

3.怎么在excel中制作和打印表格

4.Excel如何固定常用文檔

5.怎么在Excel2013中如何輸入001