在vba读取报表配置文件以后,我设想把vba的错误信息再通过vba写入到xml中。然后把vba操作excel得到的error后者bug信息
代码如下:
Dim xmldocDim rootNode Dim Header Dim attr Dim dbNodeDim etag_lstNodeDim tspch_lstNode Dim strOutputPathstrOutputPath ="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中了。
虽然问题解决了,不过这种方式我觉得并不是怎么样,在查阅有用的资料。
成功是什么?就是走过了所有通向失败的路.只剩下一条路.那就是成功的路.