如何以xml文件格式获取我的QTP脚本结果（不是结果文件夹中的格式）？

我正在QTP中批量运行脚本。我能够在excel文件中获得结果。下面是以excel文件格式获取结果的函数。如何修改以获得xml文件格式的结果

Function WriteTestSet(TestSetPath, sheetname, varr )
set wb = xl.workbooks.open(TestSetPath)
set ws = wb.worksheets(sheetname)

rc = ubound(varr, 1) + 1
cc = ubound(varr, 2) + 1

for i = 1 to rc
    for j = 1 to cc
        ws.cells(i, j) = varr(i-1, j-1)
    next
next

wb.saveas "E:\TestResults\TestSet" & ".xlsx" 
wb.close

---

结束函数

欢迎使用StackOverflow！到目前为止你试过什么？您是否找到一些手动评估此问题或类似问题的方法？我想通过使用vb脚本[非手动]获得结果，您在vb脚本中尝试了什么？您做过哪些研究（如果有任何程序、应用程序、脚本…）？最明显的方法是获取xml结果，并对其应用xsl转换，这样您就可以得到您想要的xml结构。（结果XML模式是定义良好且文档化的。）