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

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