作者：绿色风
分类：
时间：2022-08-17
浏览：89
楼主
wise |
Q:如何使用VBA创建自己的XML构架?
A:ALT+F11→插入模块→在模块中输入以下代码:
- Sub MyXSD()
- Dim MyXml As String, MyMap As XmlMap
- Dim MySchema As String
-
- '使用模板XML 填充字符
- MyXml = "<Class>"
- MyXml = MyXml & "<Student>"
- MyXml = MyXml & "<Name>张三</Name>"
- MyXml = MyXml & "<SID>A001</SID>"
- MyXml = MyXml & "<English>99</English>"
- MyXml = MyXml & "<Chinese>85</Chinese>"
- MyXml = MyXml & "</Student>"
- MyXml = MyXml & "<Student></Student>"
- MyXml = MyXml & "</Class>"
- '使用XML字符串添加XML映射
- Application.DisplayAlerts = False
- Set MyMap = ThisWorkbook.XmlMaps.Add(MyXml)
- Application.DisplayAlerts = True
- '获取架构
- MySchema = ThisWorkbook.XmlMaps(1).Schemas(1).XML
- '使用架构创建和填充xsd文件
- Open ThisWorkbook.Path & "\MySchema.xsd" For Output As #1
- Print #1, MySchema
- Close #1
- End Sub
 VBA创建XML架构.rar
|
2楼
亡者天下 |
过来学习一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一