Ecexl中的VBA导出表内的数据到XML

最新推荐文章于 2024-07-02 11:21:12 发布

新手道士

最新推荐文章于 2024-07-02 11:21:12 发布

阅读量1.8k

点赞数

分类专栏： Excel 文章标签： vba

本文链接：https://blog.csdn.net/wuyang8/article/details/54571673

版权

使用Excel VBA创建一个按钮，通过DOMDocument模型将表格数据转换为XML。介绍如何添加XML控件并遍历表格，以第一行为属性名称生成XML格式。还列举了常用的VBA获取文件路径的函数。

摘要由CSDN通过智能技术生成

Ecexl中的VBA导出表内的数据到XML

作用：

为了方便策划填表，导表，我需要做一个功能就是在Ecexl中添加一个按钮实现自动导表功能。

实现方法：

主要使用 DOMDocument 模型，（需要添加 XML控件：工具-> 引用->选择Microsoft XML，V3.0）实现XML，遍历表格让每一行形成一条XML数据。把第一行当做属性名称，形成特定格式。

代码如下：

Option Explicit '语句在模块级别中使用，强制显式声明模块中的所有变量。
Sub Main()
    Dim xmlName As String 'XML名称
    Dim xmlDoc As DOMDocument'数据总表
    Dim xmlPI As IXMLDOMProcessingInstruction'数据总表属性获得这些参数值
    Dim xmlRoot As IXMLDOMElement'总表数据
    Dim xmlVoucher As IXMLDOMElement'每行数据
    Dim I As Long
    Dim M As Long