|
本帖最后由 xieyang702 于 2011-3-2 10:39 编辑
最近终于调出来了,给大家做个参考(我只添加了产生excel的部分):
首先把 下载的程序包里的 Libraries 文件夹里的文件,放在您正使用的框架下,要确保能调用到。
然后添加以下函数:
Public function ReporterExcel(qtpstatus, excelName,expectedR, status,detail )
'call the oReporterManager to generate the excel
Call oReporterManager.StartEngine("Excel", excelName, "File>"&Environment("Log_Dir")&"\"& excelName &".xls|ClearExisting>False")
Call oReporterManager.Report(qtpstatus, excelName,expectedR,status, detail)
Call oReporterManager.StopEngine(excelName)
End Function
在脚本中这样调用:
call ReporterExcel("Pass", "test","Result got","All OK", "No Details")
还有个问题,我是修改了Libraries 下的 Engines.vbs文件,Public Sub Report (sStatus, sStepName,sExpected,sActual, sDetails) 函数最后一行添加 Set objSheet = Nothing 这样一条语句。(如果不添加的话,迭代运行多次脚本会报 excel是read-only的错误) |
|