如何用VBA自定义XML列表?

作者：绿色风分类：时间：2022-08-17 浏览：132

楼主 wise	Q:如何用VBA自定义XML列表? A:ALT+F11→插入模块→模块中输入以下代码: Sub Create_List() Dim mymap As XmlMap Dim mypath As String Dim mylist As ListObject Dim mylistcolum As ListColumn '添加一个构架映射 ThisWorkbook.XmlMaps.Add (ThisWorkbook.Path & "\MySchema.xsd") '识别目标架构映射 Set mymap = ThisWorkbook.XmlMaps("Class_映射") 'A1中创建列表 Range("A1").Select Set mylist = ActiveSheet.ListObjects.Add '查找映射第一个元素 mypath = "/Class/Student/Name" '映射元素 mylist.ListColumns(1).XPath.SetValue mymap, mypath '添加到列表中 Set mylistcolumn = mylist.ListColumns.Add '找到下一个映射的元素 mypath = "/Class/Student/English" '映射元素 mylistcolumn.XPath.SetValue mymap, mypath '添加到新列表 Set mylistcolumn = mylist.ListColumns.Add '找到下一个映射的元素 mypath = "/Class/Student/Chinese" '映射元素 mylistcolumn.XPath.SetValue mymap, mypath '提供列的逻辑名 mylist.ListColumns(1).Name = "MyName" mylist.ListColumns(2).Name = "MyEnglish" mylist.ListColumns(3).Name = "MyChinese" End Sub VBA创建XML列表.rar
2楼 0Mouse	XML被广泛用来作为跨平台之间交互数据的形式，主要针对数据的内容，通过不同的格式化描述手段（XSLT、CSS等）可以完成最终的形式表达（生成对应的HTML，PDF或者其他的文件格式）。 XML、映射，学习！
3楼 BleuRichard	目前正在学习相关的内容，感谢楼主。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表