在Excel中怎么使用DOM對(duì)象加載XML文檔
對(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屬性的取值為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é)果
猜你喜歡: