在Excel中使用DOM对象加载XML文档的方法

办公教程导读

收集整理了【在Excel中使用DOM对象加载XML文档的方法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含951字，纯文字阅读大概需要2分钟。

办公教程内容图文

图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&"学生信息.xml" '直接加载XML文档

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

Debug.Print strTemp '输出XML字符串

xmlDoc2.LoadXML strTemp 'Document对象使用XML字符串加载数据

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

Set xmlDoc1=Nothing

Set xmlDoc2=Nothing

End Sub

图2　插入模块并输入程序代码

提示

代码第5行使XML文件的下载不被同步处理。在XML中，async属性的取值为True时，表示load()方法可在下载完成之前，向调用程序返回控制权;取值为False时，则表示必须完成文件的下载，才能返回控制权。

3、按F5键运行以上过程，此时在“立即窗口”中将显示“学生信息.xml”文档数据，如图3所示。

图3　程序运行的结果