Excel中如何编写VBA程序加载XML文件_第1页
Excel中如何编写VBA程序加载XML文件_第2页
Excel中如何编写VBA程序加载XML文件_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、Excel中如何编写VBA程序加载XML文件Excel中如何编写VBA程序加载XML文件3/3Excel中如何编写VBA程序加载XML文件Excel中如何编写VBA程序加载XML文件1、新建Excel文件，打开VisualBasic编写器。选择菜单栏中的“插入”|“模块”命令创办一个新模块，双击该模块打开其“代码”窗口，在其中输入程序代码，如图1所示。详尽的程序代码以下所示：SubCreateXMLList()DimxMapAsXmlMapDimobjListAsListObjectDimarrPathAsVariantDimmPathAsXPathDimiAsIntegerOnErrorRe

2、sumeNextarrPath=Array(学号,姓名,性别,出生年月,_身份证号,籍贯,电话,地址)架构元素名SetxMap=ThisWorkbook.XmlMaps(学生信息架构照射)获取架构照射IfxMapIsNothingThen若是架构照射不存在则创办学生信息.xsd)创办到学生信息的架构照射xMap.Name=学生信息架构照射设置架构照射的名称EndIfSetobjList=Sheet1.ListObjects.Add在Sheet1表中增加列表Fori=1ToUBound(arrPath)objList.ListColumns.Add为列表增加列NextFori=0ToUBound

3、(arrPath)设置列表的各个列objList.ListColumns(i+1).Name=arrPath(i)设置列表第i+1列的列标题objList.ListColumns(i+1).XPath.SetValuexMap,_/学生明细/学生信息/&arrPath(i)建立第i+1列的地域照射Next学生信息.xml导入XML数据文档EndSub图1增加模块并输入程序代码2、切换到Excel，选择A1单元格，返回VisualBasic编写器中，将插入点光标放置到上一步创办的程序中，按F5键运行程序，在Excel工作表中能够查察到程序代码运行的结果，如图2所示。图2程序运行的结果提示从上面的结果中能够看出，Excel文件中已经加载了照射的名称和元素，并且将这些元素都填充到Excel的列表中。3、增加导入数据的代码。在程序代码的最后增加以下代码：xMap.ImportThisWorkbook.Path&“学生信息.xml”导入XML数据文档返回到VBA中，查察程序代码运行结果，如图3所示。图3运行结果注意经过录制宏其实不能够获取导入XML文档数据的全部代码，

人人文库> 全部分类> 办公材料 > 礼仪文书

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论