Excel中编写VBA程序加载XML文件的方法
- 2022-04-05
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 417 次浏览
在Excel中，通过使用VBA程序，可以方便地实现XML文件的添加。实际上，通过VBA代码向工作表导入XML文档数据需要完成。具体的程序代码：
Sub CreateXMLList()
Dim xMap As XmlMap
Dim objList As ListObject
Dim arrPath As Variant
Dim mPath As XPath
Dim i As Integer
On Error Resume Next
arrPath=Array("学号","姓名","性别","出生年月",_
"身份证号","籍贯","电话","地址") '架构元素名
Set xMap=ThisWorkbook.XmlMaps("学生信息架构映射") '获取架构映射
If xMap Is Nothing Then '。
图2 程序运行的结果
提示
从上面的结果中可以看出，Excel文件中已经加载了映射的名称和元素，并且将这些元素都填充到Excel的列表中。
3、添加导入数据的代码。在程序代码的最后添加。
图3 运行结果
注意
通过录制宏并不能获取导入XML文档数据的全部代码，其中指定映射区域的步骤将不会获取任何宏代码。因而读者在使用该方法时，需要自己手动完成这些代码的设置工作。
