QTP 如何输出Report中Object,Details等

tianchuncheng

如图想把Object,Details,Time,Result等输出到Excel中，如何获取这些值呢？

黑羽祭

回复 1# tianchuncheng


    在脚本中直接获取，然后自己写脚本写入Excel比如：

1. Public Function QTP_Write_Excel(pathway,sheetname,x,y,content) 
   
2.     Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3 
   
3.     set srcData = CreateObject("Excel.Application") 
   
4.     srcData.Visible = False 
   
5.     set srcDoc = srcData.Workbooks.Open(pathway) 
   
6.     srcDoc.Worksheets(sheetname).Activate 
   
7.     srcDoc.Worksheets(sheetname).Cells(x,y).value = content 
   
8.     wait(1) 
   
9.     srcDoc.Save
   
10.     srcData.Workbooks.Close 
    
11.     Set srcDoc = nothing
    
12.     Window("text:=Microsoft Excel").Close 
    
13. End Function

复制代码

tianchuncheng

回复 2# 黑羽祭


    非常感谢