51Testing软件测试论坛

标题: qtp的测试结果能够自动导入到excel里吗？ [打印本页]

作者: toprich 时间: 2007-9-20 11:33
标题: qtp的测试结果能够自动导入到excel里吗？
整个脚本运行完成，能够一次性将所有结果导入到指定的excel里吗？
最好发个例子看看。

作者: rivermen 时间: 2007-9-20 12:03
你可以自己在Excel中设计测试用例
前面几列放驱动的数据，
一列放预期结果
一列放实际结果
一列放测试结果

论坛上有例子。search

作者: rivermen 时间: 2007-9-20 12:12
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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)