qtp的测试结果能够自动导入到excel里吗？

toprich

整个脚本运行完成，能够一次性将所有结果导入到指定的excel里吗？
最好发个例子看看。

rivermen

你可以自己在Excel中设计测试用例
前面几列放驱动的数据，
一列放预期结果
一列放实际结果
一列放测试结果

论坛上有例子。search

rivermen

systemutil.Run "iexplore","www.dusee.cn"


'##############################################
'##############################################
'  此处添加外部Excel 文件驱动代码                             #
'##############################################
Dim xlapp ,wkBook,wkSheet
Dim i
Set xlapp=createobject("excel.application")
Set wkBook=xlapp.workbooks.open(environment("TestDir") & "\b.xls")
xlapp.visible=false
Set wkSheet=wkBook.workSheets("login")

For i=2 to 5
        If Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Frame("Frame").Link("退出").Exist then
                Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Frame("Frame").Link("退出").Click
                Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Sync
    end if

       
        user=wkSheet.cells(i,1)
        passwd=wkSheet.cells(i,2)


Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Frame("Frame").WebEdit("username").Set user
Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Frame("Frame").WebEdit("password").Set passwd
Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Frame("Frame").Image("loginIcon").Click 17,14
        If Browser("都视网 www.dusee.cn 首页 视频短片").Dialog("Microsoft Internet Explorer").Exist Then
                info= browser("都视网 www.dusee.cn 首页 视频短片").Dialog("Microsoft Internet Explorer").GetVisibleText
                Browser("都视网 www.dusee.cn 首页 视频短片").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                reporter.ReportEvent 1,"登录状态","登录失败：" & info
                wkSheet.cells(i,3)="log in fail"
                wkSheet.cells(i,3).font.color=vbblack
                wkSheet.cells(i,3).Interior.color=vbred
        else
                reporter.ReportEvent 0,"登录状态","登录成功！"
                wkSheet.cells(i,3)="log in successfully"
                wkSheet.cells(i,3).font.color=vbblack
                wkSheet.cells(i,3).Interior.color=vbblue




'        wklog.cells(i,2).font.color=vbred
'        wklog.cells(i,2).Interior.color= 6





        End If

'Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Sync

Next

wkBook.save
wkBook.close
xlapp.quit
Set xlapp=nothing


Browser("都视网 www.dusee.cn 首页 视频短片").Page("都视网 www.dusee.cn 首页 视频短片").Sync

Browser("都视网 www.dusee.cn 首页 视频短片").Close




Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1"
' Save the sheet.
ExcelSheet.SaveAs  "c:\b.xls"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing