admin管理员组文章数量:1530846
2024年3月15日发(作者：)
Excel中如何编写VBA程序加载XML文件
1、新建Excel文件，打开VisualBasic编辑器。选择菜单栏中的“插入”|“模块”
命令创建一个新模块，双击该模块打开其“代码”窗口，在其中输入程序代码，如图1所
示。具体的程序代码如下所示：
SubCreateXMLList()
DimxMapAsXmlMap
DimobjListAsListObject
DimarrPathAsVariant
DimmPathAsXPath
DimiAsInteger
OnErrorResumeNext
arrPath=Array("学号","姓名","性别","出生年月",_
"身份证号","籍贯","电话","地址")'架构元素名
SetxMap=s("学生信息架构映射")'获取架构映射
IfxMapIsNothingThen'如果架构映射不存在则创建
SetxMap=(&_"
息.xsd")'创建到学生信息的架构映射
学生信
="学生信息架构映射"'设置架构映射的名称
EndIf
SetobjList='在Sheet1表中添加列表
Fori=1ToUBound(arrPath)
'为列表添加列
Next
Fori=0ToUBound(arrPath)'设置列表的各个列
lumns(i+1).Name=arrPath(i)'设置列表第i+1列的列标题
lumns(i+1).uexMap,_"/学生明细/学生信息
/"&arrPath(i)'建立第i+1列的区域映射
Next
&"学生信息.xml"'导入XML数据文档
EndSub
图1添加模块并输入程序代码
2、切换到Excel，选择A1单元格，返回VisualBasic编辑器中，将插入点光标放置
到上一步创建的程序中，按F5键运行程序，在Excel工作表中可以查看到程序代码运行
的结果，如图2所示。
图2程序运行的结果
提示
从上面的结果中可以看出，Excel文件中已经加载了映射的名称和元素，并且将这些
元素都填充到Excel的列表中。
3、添加导入数据的代码。在程序代码的最后添加如下代码：
&“学生信息.xml”'导入XML数据文档
返回到VBA中，查看程序代码运行结果，如图3所示。
图3运行结果
注意
通过录制宏并不能获取导入XML文档数据的全部代码，其中指定映射区域的步骤将
不会获取任何宏代码。因而读者在使用该方法时，需要自己手动完成这些代码的设置工作。
猜你喜欢：
版权声明：本文标题：Excel中如何编写VBA程序加载XML文件 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1710437960a265608.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论