我在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
结束功能