求助，QTP检查点结果写入到Excel，求大神指点

42780419

录了这么一段小脚本，加了个标准检查点进去，现在我想如果检查点通过了，就在D:\test.xls的第一列第一行写个PASS，如果检查点失败了，就在相同的位置写个Failed。搞了好半天都没搞懂，求大神指点！！

Zgi46Z

真的谢谢了！

黑羽祭

回复 1# 42780419


    给你随手写了一段，没有调试，你调试一下：

1. Dim CheckReturn
   
2. CheckReturn = Browser("xxxx").Page("xxxx").WebElement("xxx").CheckProperty "Value", "123"
   
3. Call QTP_Write_Excel("D:\test.xls","Sheet1",1,1,CheckReturn)
   
4. 
   
5. 
   
6. Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
   
7.     Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
   
8.     set srcData = CreateObject("Excel.Application")
   
9.     srcData.Visible = False
   
10.     set srcDoc = srcData.Workbooks.Open(pathway)
    
11.     srcDoc.Worksheets(sheetname).Activate
    
12.     srcDoc.Worksheets(sheetname).Cells(x,y).value = content
    
13.     wait(1)
    
14.     srcDoc.Save
    
15.     srcData.Workbooks.Close
    
16.     Set srcDoc = nothing
    
17.     Window("text:=Microsoft Excel").Close
    
18. End Function

复制代码