VBA编写xml

在vba读取报表配置文件以后，我设想把vba的错误信息再通过vba写入到xml中。然后把vba操作excel得到的error后者bug信息 

代码如下：

Dim xmldoc
Dim rootNode
Dim Header
Dim attr
Dim dbNode
Dim etag_lstNode
Dim tspch_lstNode
Dim strOutputPath
strOutputPath ="C:\db.xml"
'd  stask节点
    Dim dstaskNode
    'eas_mgr节点
    Dim eas_mgrNode
    '创建 能耗.xml文档
    Set xmldoc = CreateObject("MSXML2.DOMDocument")
    xmldoc.preserveWhiteSpace = True
    Set rootNode = xmldoc.createElement("root")
    Set xmldoc.DocumentElement = rootNode
    Set Header = xmldoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
    xmldoc.InsertBefore Header, xmldoc.ChildNodes(0)
    'etag_lst节点
    Set etag_lstNode = xmldoc.createElement("etag_lst")
    rootNode.appendChild etag_lstNode
    Dim etag_lst_tag
   
     For i = 1 To 2
     'etag_lst节点下的tag节点
      Set etag_lst_tag = xmldoc.createElement("tag")
      etag_lst_tag.setAttribute "tid", "10"
      etag_lst_tag.setAttribute "name", "CalFSDCnt"

      etag_lstNode.appendChild etag_lst_tag
    Next
   
   xmldoc.Save strOutputPath

 xml结果如下：

<?xml version="1.0" encoding="UTF-8"?>
<root><etag_lst><tag tid="10" name="CalFSDCnt"/><tag tid="10" name="CalFSDCnt"/></etag_lst></root>

截图如下：

这样就可以把vba调试excel的信息就可以传递到xml中了。

虽然问题解决了，不过这种方式我觉得并不是怎么样，在查阅有用的资料。