51Testing软件测试论坛

标题: 自己整合的比较经典的qtp框架+excel报告 [打印本页]

作者: auuppp 时间: 2011-12-25 13:19
标题: 自己整合的比较经典的qtp框架+excel报告
本帖最后由 auuppp 于 2011-12-25 13:23 编辑

[attach]76829[/attach]自己整合的比较经典的qtp框架+excel报告，两个都是网上下载的，我整合到一起了，可以导出excel的报告，完美哦。

作者: auuppp 时间: 2011-12-25 13:19
ProjectDir = getParentFolderPath(Environment.Value("TestDir")) '项目所在的根目录，如"D:\project\"，这个路径的末位是有一个反斜线的
TestSetExcelFile = ProjectDir&"testCases.xls" '管理所有测试用例的Excel文件的路径
testScriptFolderName =ProjectDir&"testScript" 'task脚本文件所在的根目录
testDataFolderName = ProjectDir&"testData"'测试数据文件所在的根目录
testLogFolder=ProjectDir&"logs\"
testReportFolder=ProjectDir&"reports\"
Environment("ProjectDir")  = ProjectDir
Environment("TestSetExcelFile")  = TestSetExcelFile
Environment("testScriptFolderName")  = testScriptFolderName
Environment("testDataFolderName")  = testDataFolderName
Environment("Log_Dir")  =  testLogFolder
Environment("Report_Dir")  =  testReportFolder
SET_SHEET = Environment("SET_SHEET")
TEST_SHEET = Environment("TEST_SHEET")
ExecuteFile ProjectDir&"frameUtil\ClassExcelReport.vbs" '加载task脚本文件
Set oReport = New ExcelReport
Environment("oReport")= oReport

Call Driver_Test_Set()
Function Driver_Test_Set()
oReport.AddSheet_BusinessList  Environment("Report_Dir"),formatdatetime(now(),2)
Dim row_count '记录的测试用例集一共有多少个

' import the Set table to QTP's data table
call DataTable.AddSheet(SET_SHEET)
call DataTable.ImportSheet(TestSetExcelFile,1, SET_SHEET)
row_count = DataTable.GetSheet(SET_SHEET).GetRowCount
logPrint("最多执行"&row_count&"个测试用例")

For i=1 to row_count

'获取测试用例的名称，存放测试用例的Excel文件名称，是否运行这三个重要字段。默认Excel的第一个Sheet就是测试用例
DataTable.GetSheet(SET_SHEET).SetCurrentRow(i)
isRun = DataTable.Value("IDX", SET_SHEET)
caseName = datatable.value("name", SET_SHEET)
testCaseFileName = datatable.value("table", SET_SHEET)
testCaseSheetName = datatable.value("sheet", SET_SHEET)
caseDesc = DataTable.Value("description", SET_SHEET)

      ' 如果该行测试用例是要被执行的，那么就执行，否则跳过。
If isRun = "√"  then
         table = pathFind(testDataFolderName,testCaseFileName,"xls")
logPrint("开始运行测试用例 "&caseName&" , 数据存放位置： "&table)

   ' rc = Driver_TestCase(table)

oReport.AddData_BusinessList caseName,table
RunAction "Driver_TestCase", oneIteration, table, testCaseSheetName,caseName
   logPrint("执行完成。测试用例 "&caseName&" , 数据存放位置： "&table)
end if
Next
DataTable.DeleteSheet(SET_SHEET)
logPrint("所有测试用例执行完成。")
'Driver_Test_Set = rc
End Function

作者: auuppp 时间: 2011-12-25 13:21
testCaseFile =parameter("testCaseFile")
testCaseSheetName =parameter("testCaseSheetName")
caseName =parameter("caseName")
'msgbox caseName
'msgbox testCaseSheetName
ExecuteFile "D:\测试技术\qtp\project1\project\frameUtil\ClassExcelReport.vbs" '加载task脚本文件
Set oReport = Environment("oReport")

sBusinessCase=taskFileName
call Driver_TestCase(testCaseFile,testCaseSheetName)
function Driver_TestCase(testCaseFile,testCaseSheetName)
'testCaseFile 该传入参数是一个绝对路径的 Excel文件
'testCaseSheetName该传入参数是Excel文件中存放测试用例数据的 Sheet的名称，
TEST_SHEET = Environment("TEST_SHEET")

' 导入测试用例的数据，默认为第一个Sheet
call DataTable.AddSheet(TEST_SHEET)
If testCaseSheetName<>"" Then
call DataTable.ImportSheet(  testCaseFile, testCaseSheetName, TEST_SHEET )
else
call DataTable.ImportSheet(  testCaseFile, 1, TEST_SHEET )
End If
logPrint("测试用例的数据加载完成。"&testCaseFile)
row_count = DataTable.GetSheet(TEST_SHEET).GetRowCount
set taskFile = createobject("scripting.dictionary") ' taskFIle Key为存放task的文件名称，值为其路径
set testDataTable = createobject("scripting.dictionary") ' testDataSheet ，Key为存放Excel文件名+Sheet名，值为Sheet名

'首先找到需要加载的task文件
DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
For i=1 to row_count
If DataTable("IDX",TEST_SHEET) = "√" Then
taskFileName = DataTable("bizName",TEST_SHEET)

if NOT taskFile.Exists(taskFileName) Then
taskFilePath = pathFind(Environment("testScriptFolderName"),taskFileName,"vbs")
            call taskFile.add(taskFileName,taskFilePath)
      ExecuteFile taskFilePath '加载task脚本文件
            ' ExecuteFile "D:\测试技术\qtp\project1\project\frameUtil\ClassExcelReport.vbs" '加载task脚本文件
'    Set oReport = New ExcelReport
logPrint("加载Task脚本文件完成。"&taskFilePath)



Execute "Set obj"&taskFileName&" = new "&taskFileName '初始化task的类

End If
End If
DataTable.GetSheet(TEST_SHEET).SetNextRow
Next
'存放业务的Task的文件加载完毕

'加载测试数据所在的Sheet
DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
For i=1 to row_count
If DataTable("IDX",TEST_SHEET) = "√" Then
testDataSheetName = DataTable("bizDataTable",TEST_SHEET)
If NOT testDataTable.Exists(testDataSheetName)  and testDataSheetName<>"" Then
tempArray = split(testDataSheetName,".") 'tempArray(0)是sheet名称
If Ubound(tempArray)=0 and tempArray(0)<>"" Then
'如果只有Sheet名称，则加载当前Excel文件的Sheet
call testDataTable.add(testDataSheetName,tempArray(0))
call DataTable.AddSheet(tempArray(0))
call DataTable.ImportSheet( testCaseFile, tempArray(0), tempArray(0) )
elseif Ubound(tempArray)=1 and tempArray(1)<>"" Then
'如果是引用的外部Excel的sheet，那么。。。
call testDataTable.add(testDataSheetName,tempArray(1))
testDataFilePath = pathFind(Environment("testDataFolderName"),tempArray(0),"xls")
call DataTable.AddSheet(tempArray(1))
call DataTable.ImportSheet( testDataFilePath, tempArray(1), tempArray(1) )

logPrint("加载测试数据完成。"&tempArray(1))
else
logPrint("数据文件的dataTable列格式错误。"&testDataSheetName)
End If
End If
End If
DataTable.GetSheet(TEST_SHEET).SetNextRow
Next

'开始按照顺序执行测试用例中的具体的各个Task
DataTable.GetSheet(TEST_SHEET).SetCurrentRow(1)
For i = 1 to row_count
If DataTable("IDX",TEST_SHEET) = "√" Then
'执行该脚本文件中的具体方法，方法名称为Excel表格中的taskName的值，暂时不做中英文名称的字典匹配，直接使用英文
className = DataTable("bizName",TEST_SHEET)
taskName = DataTable("taskName",TEST_SHEET)
bizDataTableName = DataTable("bizDataTable",TEST_SHEET)
filterExp =DataTable("filter",TEST_SHEET) '过滤测试数据的条件语句

If bizDataTableName<>"" Then
'如果task有对应的测试数据，那么加载对应的测试数据
Sheet_Name = testDataTable.item(DataTable("bizDataTable",TEST_SHEET))
test_data_row_count = DataTable.GetSheet(Sheet_Name).GetRowCount
For j=1 To test_data_row_count
DataTable.GetSheet(Sheet_Name).SetCurrentRow( j )
If Eval(generateFilterExp(Sheet_Name,filterExp)) Then
'Eval(generateFilterExp(Sheet_Name,filterExp)) ，解析测试数据的条件语句，符合此条件的，则执行该行测试数据，否则不执行
                        str = "obj"&className&"."&taskName&" "&chr(34)&Sheet_Name&chr(34)

logPrint("执行测试步骤 "&i&", "&str)
Execute str    ''执行 objlogin.login "login","TEST_SHEET"

End If
'oReport.AddReport caseName,className,taskName,,0,"成功","成功","明细"
'msgbox testCaseSheetName

DataTable.GetSheet(Sheet_Name).SetNextRow

Next


else
'如果task没有对应的测试数据，则不加载测试数据，如退出登录logout()方法
str = "Call obj"&className&"."&taskName&"()"
logPrint("执行测试步骤 "&i&", "&str)
Execute str
end if
oReport.AddReport caseName,className,taskName,0,"成功","成功","明细"
End If

DataTable.GetSheet(TEST_SHEET).SetNextRow

Next

logPrint("所有测试步骤执行完成。")

'释放定义的所有对象
tempArray = taskFile.keys
For i=0 to taskFile.Count-1
Execute "Set obj"&tempArray(i)&" = nothing"
Next
Set taskFile = nothing
tempArray = testDataTable.items
For i=0 to testDataTable.Count -1
   If tempArray(i)<>"" Then
   Call DataTable.DeleteSheet(tempArray(i))
   End If
Next
Set testDataTable = nothing
Call DataTable.DeleteSheet(TEST_SHEET)
Driver_TestCase= 0
End Function

作者: auuppp 时间: 2011-12-25 13:22
标题: 自己整合的比较经典的qtp框架+excel报告
本帖最后由 auuppp 于 2011-12-25 13:24 编辑

ding

作者: lyscser 时间: 2011-12-25 19:45
松木玩意？

作者: JulianHuang 时间: 2011-12-26 10:28
详细描述一下功能吧，说清楚了才能多赚点吗！

作者: hbycyf123 时间: 2012-6-6 16:48
完全看不懂？解释一下会受益匪浅

作者: walkingsky 时间: 2012-7-12 17:57
一咬牙，一跺脚！买！！！！

作者: Rickyone 时间: 2012-7-19 15:24
ggggggggggggggggggggggggggg

作者: TestWith1314 时间: 2012-7-19 16:40
UP UP

作者: 九十度二锅头 时间: 2012-7-23 16:36
请问楼主,test_sheet,set_sheet需要如何设置

作者: hellowang123 时间: 2012-8-22 14:24
xia lai kankan

作者: yaoxlong1031 时间: 2012-8-22 17:23
真实的，就不能便宜一点啊~！

作者: yaoxlong1031 时间: 2012-8-22 17:23
弄得我现在身无分文了~！

作者: chylx 时间: 2012-9-19 16:19
正在研究中，有好些地方不是很懂，可能还要请教楼主哦

作者: temp20121017 时间: 2012-10-27 14:20
不懂啊

作者: ccption 时间: 2012-10-31 21:43
是不是真的啊？

作者: 番茄钟 时间: 2012-11-5 15:42
学习

作者: 悾歽枝 时间: 2012-11-6 16:51
呀啥子东东嘛

作者: 104509426 时间: 2012-11-8 15:59
hao

作者: clw1988 时间: 2012-11-9 09:02
sadfasdf sadf

作者: gdg87813 时间: 2012-11-9 10:20
fjh

作者: qjl1000211038 时间: 2012-11-12 11:14
学习了，最近我正好也在研究框架，参考了！

作者: xiajin87 时间: 2013-6-18 10:49
为什么每次执行到sBusinessCase=taskFileName这个话的时候就报错呢。。

作者: 让测试飞起来 时间: 2013-6-18 10:55
hao

作者: linbill 时间: 2013-6-20 14:35
先顶一下，再下载。

作者: xiaohuazhong5 时间: 2013-6-21 21:19
标题: RE: 自己整合的比较经典的qtp框架+excel报告（zip）
qtp framework zip format. [attach]85802[/attach]

作者: nonesense 时间: 2013-7-10 11:32
回复 27# xiaohuazhong5

您好，我用你的代码跑了一下，出现错误，请问这个如何解决？[attach]86259[/attach]

作者: nonesense 时间: 2013-7-10 12:32
回复 27# xiaohuazhong5

这个问题解决了，我创建了几个文件夹以后就可以了。
但是心的问题又出现了，是不是我环境变量设置的有问题？应该如何设置？[attach]86260[/attach][attach]86260[/attach]

作者: amo666 时间: 2013-7-19 20:56
SET_SHEET = Environment("SET_SHEET")
TEST_SHEET = Environment("TEST_SHEET")
不明白Environment("SET_SHEET")和 Environment("TEST_SHEET")的值是什么？在QTP中查看也没查出来。

作者: leal_2012 时间: 2013-7-22 21:14
Private Sub Report_Click()
Dim input_report As String
Dim long_input As Long
Dim serrial_project As Integer: serrial_project = 0

If Date_Month.Text = "" Then
      MsgBox "Please input Report Date !"
      End
End If
input_report = Date_Month.Text
long_input = CLng(CDate(input_report)) 'change date to long

While (Sheets("Month").Cells(serrial_project + 5, 3).Value <> "")
      Call each_project(serrial_project, long_input)
      serrial_project = serrial_project + 1
Wend

End Sub

'
Private Function each_project(a, b)
Dim j, k As Integer:  k = 0
Dim sourch_report As String
Dim p1, p2 As Integer
Dim q1, q2 As String
Dim long_source As Long
Dim sum_ports As Integer: sum_ports = 0

For j = 1 To Sheets.Count
      If UCase(Sheets(j).Name) = UCase(Sheets("month").Cells(a + 5, 3).Value) Then
         While (UCase(Sheets(j).Cells(4 + k, 13).Value) <> "")
            If (UCase(Sheets(j).Cells(4 + k, 13).Value) = "YES") Then
                  sourch_report = Sheets(j).Cells(4 + k, 10).Value
                  p1 = InStr(sourch_report, "/")
                  p2 = InStrRev(sourch_report, "/")
                  q1 = Left(sourch_report, p1 - 1)
                  q2 = Right(sourch_report, Len(sourch_report) - p2)
                  long_source = CLng(CDate(q1 & "/" & q2))
                  If long_source = b Then
                     sum_ports = sum_ports + Val(Sheets(j).Cells(4 + k, 11).Value)
                  End If
            End If
            k = k + 1
         Wend
         Sheets("month").Cells(a + 5, 5).Value = sum_ports
         sum_ports = 0: k = 0
         Exit For
      End If
Next j
End Function

作者: sakuragi0 时间: 2013-7-23 09:50
楼主是“QTP轻量级自动化测试框架”的作者吗？目测该框架和那个几乎一样.

作者: forlanhan 时间: 2013-9-10 14:03
回复 29# nonesense

你把exel文件重新另存为97-2003版本的应该就可以了！

作者: tiedanbaobei 时间: 2013-11-20 10:17
回复 1# auuppp

不错的~顶

作者: bryanyy 时间: 2013-11-21 14:31
下来看看

作者: carol_0921 时间: 2016-6-20 13:40
table = pathFind(testDataFolderName,testCaseFileName,"xls") 有这个用法么？到这通过不了呀！

作者: 女孩 时间: 2019-4-18 16:47
谢谢楼主

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