当前位置: 主页 > Office办公 > Word专区 > Word教程 > Word2013教程 > Excel中编写VBA程序加载XML文件的方法

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文档数据的全部代码,其中指定映射区域的步骤将不会获取任何宏代码。因而读者在使用该方法时,需要自己手动完成这些代码的设置工作。