测试报告代码
上一篇 / 下一篇 2010-01-26 13:11:40 / 个人分类:测试工具
转载处:http://www.51testing.com/?16178751Testing软件测试网s2sVU6~+GvVz51Testing软件测试网9MI*VwL8]0y
自动化测试实际是将测试人员手工进行的工作脚 本化,这就需要在测试脚本运行完成后,展示一个明了的测试报告,供相关人员查看测试结果,判断系统的正确性,以下代码实现的是一个EXCEL格式的测试报 告,以Function为单位记录脚本的执行情况,若完成则显示Complete,在Comment中显示验证点检查结果情况,以此来判断系统运行的正确 行;若由于一些突发的异常情况导致脚本未执行完成,则显示Fail,在Comment中显示Err.Descrīption信息51Testing软件测试网2byZ u8NrS)^%Cv51Testing软件测试网Y6Z*z a0^k
当然,要达到以上效果,要求在业务脚本的检查点按照指定的格式书写,我的做法是设置一个全局变量记录所有检查点信息,然后传入给日志函数以下是代码,希望对有需要的朋友有所帮助:)51Testing软件测试网Rx/Rf&w&Vv MN
2[:W6Y$m%~119676Function ExcelReport(ReportExcelFile,sStatus,sDetails)51Testing软件测试网 V1o5pTH|B,nl
(U;S*K Arf0'定义变量
Q"U8h]7CUv0:[X}3| B)}7pCx.\p9[B119676 Dim fso51Testing软件测试网h.Z7nA*d2d:F)P`8wA
m} O#X(s0 Dim oExcel51Testing软件测试网 Q+wQ*AW
Q/XC"gq#FV%eU0 Dim ExcelFile51Testing软件测试网 P$oi%h!XgGNX9y
`1E+l8@)D0 Dim TestcaseName51Testing软件测试网k+]9X!C'JP{51Testing软件测试网 VkGb2_9X7~'l?X1N
Dim objWorkBook
W(u^Ad;F@P0K"h3`5q JxV119676 Dim objSheet51Testing软件测试网BY4[W K8|?@
ey*[Akl'c]K0' Dim Environment("Row"), Environment("TCRow"), NewTC
/N-h,I/s5t%w00@3U+?%V a$jF119676 51Testing软件测试网F9TJIg&yAcz,w
%T,qpMp7I)zw/N A4g/K119676 Set fso = CreateObject("scrīpting.FileSystemObject")
rmqx r\y0IMv0L@PMZ/f'L%`119676 Set ōExcel = CreateObject("Excel.Application")
,P n"d%w~V?*Y1G0`2n#iJ-O+]119676' oExcel.Visible = True51Testing软件测试网On5IE'Y^%AP
0| Z\hJ k)u,]x:q119676 51Testing软件测试网iAEOSh51Testing软件测试网a}(B1YM:^kcpWg
'设置Excel报告样式51Testing软件测试网-RrpTftt{
A-?nL2PSX0 If Not fso.FileExists(ReportExcelFile) Then51Testing软件测试网p)G6b1mC:Be ]
d[)AQ#I.Sx$T(f"{119676 oExcel.Workbooks.Add51Testing软件测试网6Ai*c-RM&_2bI
%s)a1Y2Vl7M+D{U'u119676 51Testing软件测试网}0a;Qm]r51Testing软件测试网jEV8qg,^u
'获取工作簿的第一个Sheet页51Testing软件测试网 x&Q$I Rla^oM51Testing软件测试网 ZKP5v7I-]j7MW
Set ōbjSheet = oExcel.Sheets.Item(1)51Testing软件测试网Lc)Z7O$q
*d{#f^u119676 oExcel.Sheets.Item(1).Select51Testing软件测试网,H&e4pwJZ9li9g3KQ
t'_.vy2g5\k0 51Testing软件测试网\Z0[N/]O8}51Testing软件测试网.[5jk2y6uY:u
With objSheet
c E0?}$}5fZ0ft+\!d6D\ Z)V5{rI119676 '更改sheet名51Testing软件测试网 s4H7Bq,g Mv4rZ
A3id$k)W2Gu119676 .Name = "Test_Summary"51Testing软件测试网Ch0Hl2y}
9Ed9]*X^119676 51Testing软件测试网2`yip+h c8Q$A
6P!c`C-])N+zL119676 '设置列宽
Be+[m"M!d4K,N0+K d Y.K3F5V7hfo6S119676 .Columns("A:A").ColumnWidth = 551Testing软件测试网 q6qKm2M/n8q)g
Z.x0aG5r mh(UE@0 .Columns("B:B").ColumnWidth = 3551Testing软件测试网+Q7b)R1].@2M B|
1~6i*I7A{0Qt119676 .Columns("C:C").ColumnWidth = 1051Testing软件测试网 ]w1?(tF3Azx
q-w*l`{:I0 .Columns("D:D").ColumnWidth = 6051Testing软件测试网g${4_F&]2{
!ZK7N\UQ0 .Columns("A:D").HorizontalAlignment = -413151Testing软件测试网*?y M]hq)S51Testing软件测试网 oQo6R1W"E i0`
.Columns("A:D").WrapText = True51Testing软件测试网.^Q^2bA2iO
9g8RV7M{-uTwv1xu0 51Testing软件测试网Gttdmc6Y;B51Testing软件测试网snf8@,g8G
'设置显示区域的字体类型和大小51Testing软件测试网oRy\`51Testing软件测试网's)^ d)a!Z4~1`m/a
.Range("A:D").Font.Name = "Arial"
FM*}} J0ZW7l M ^g119676 .Range("A:D").Font.Size = 1051Testing软件测试网xf7S,I4ahGwS
*K6`Ac8qD119676 51Testing软件测试网9u7WKw%yZ8p
\'A$?7dH9ig fj119676 '设置文件头格式51Testing软件测试网O\?7e+lV/]
w|K*w.Qy"FlXX }0 .Range("B1").Value = "TestResult"51Testing软件测试网3e+EvO4X s51Testing软件测试网(o-N`5?Bk(\l&n
.Range("B1:C1").Merge51Testing软件测试网,cr EZG0WJ
LE8WUw4XC!@+Ea!j(M119676 51Testing软件测试网 ] FinV!g
b3m,Yv0}A-t119676 '设置文件头格式字体和颜色51Testing软件测试网Ku^mA
qe)U y p&zA.r?+_.T119676 .Range("B1:C1").Interior.ColorIndex = 53
!OU5oZmhE;QV5E0+rt5Th+L-dyQx119676 .Range("B1:C1").Font.ColorIndex = 1951Testing软件测试网n$t3u&S-nnR7z
I_Aa:wN\J0 .Range("B1:C1").Font.Bold = True
4lQ.M5?#I%]7v0i3YRF8c(g^#A6x+Ii119676 51Testing软件测试网 a B pLTB4t6TN51Testing软件测试网4\$n%O0dBcQ6ZR(co5^1p
'设置执行的日期和时间
"B7Md vHl,d/NN0Pl7|SE119676 .Range("B3").Value = "Test Data:"51Testing软件测试网5UXrh1^ {
W BR4d%p119676 .Range("B4").Value = "Test Start Time:"51Testing软件测试网1p/AQFP\1Pnh
-[[];\9E!Y119676 .Range("B5").Value = "Test End Time:"
(T0B]9b:S&J/EW08f+{0|x;eS/WM+x119676 .Range("B6").Value = "Test Duration: "
@wHV/a*G*R;BT0bma;ae6St8Sk119676 .Range("C3").Value = Date51Testing软件测试网O7k5w6T;Znx
2C-a6Gm(YfOM0 .Range("C4").Value = Time51Testing软件测试网hsem*q ?}8xmU*bE
c:]pD u-}j+p119676 .Range("C5").Value = Time51Testing软件测试网8p.t%|p?&U
]Q&e8G;Av_~0 .Range("C6").Value = "=R[-1]C-R[-2]C"51Testing软件测试网,Yc"\~#JhY51Testing软件测试网"kk8iE.A3x+\
.Range("C6").NumberFormat = "[h]:mm:ss;@"51Testing软件测试网^ u2uR7i~{V%`
n!J5^2yO$d0 51Testing软件测试网ox(s ~._51Testing软件测试网h!S*[[&rS!F*r Z:y
'设置日期和时间cell的边界51Testing软件测试网"[$u`NZQ}K7S
自动化测试实际是将测试人员手工进行的工作脚 本化,这就需要在测试脚本运行完成后,展示一个明了的测试报告,供相关人员查看测试结果,判断系统的正确性,以下代码实现的是一个EXCEL格式的测试报 告,以Function为单位记录脚本的执行情况,若完成则显示Complete,在Comment中显示验证点检查结果情况,以此来判断系统运行的正确 行;若由于一些突发的异常情况导致脚本未执行完成,则显示Fail,在Comment中显示Err.Descrīption信息51Testing软件测试网2byZ u8NrS)^%Cv51Testing软件测试网Y6Z*z a0^k
当然,要达到以上效果,要求在业务脚本的检查点按照指定的格式书写,我的做法是设置一个全局变量记录所有检查点信息,然后传入给日志函数以下是代码,希望对有需要的朋友有所帮助:)51Testing软件测试网Rx/Rf&w&Vv MN
2[:W6Y$m%~119676Function ExcelReport(ReportExcelFile,sStatus,sDetails)51Testing软件测试网 V1o5pTH|B,nl
(U;S*K Arf0'定义变量
Q"U8h]7CUv0:[X}3| B)}7pCx.\p9[B119676 Dim fso51Testing软件测试网h.Z7nA*d2d:F)P`8wA
m} O#X(s0 Dim oExcel51Testing软件测试网 Q+wQ*AW
Q/XC"gq#FV%eU0 Dim ExcelFile51Testing软件测试网 P$oi%h!XgGNX9y
`1E+l8@)D0 Dim TestcaseName51Testing软件测试网k+]9X!C'JP{51Testing软件测试网 VkGb2_9X7~'l?X1N
Dim objWorkBook
W(u^Ad;F@P0K"h3`5q JxV119676 Dim objSheet51Testing软件测试网BY4[W K8|?@
ey*[Akl'c]K0' Dim Environment("Row"), Environment("TCRow"), NewTC
/N-h,I/s5t%w00@3U+?%V a$jF119676 51Testing软件测试网F9TJIg&yAcz,w
%T,qpMp7I)zw/N A4g/K119676 Set fso = CreateObject("scrīpting.FileSystemObject")
rmqx r\y0IMv0L@PMZ/f'L%`119676 Set ōExcel = CreateObject("Excel.Application")
,P n"d%w~V?*Y1G0`2n#iJ-O+]119676' oExcel.Visible = True51Testing软件测试网On5IE'Y^%AP
0| Z\hJ k)u,]x:q119676 51Testing软件测试网iAEOSh51Testing软件测试网a}(B1YM:^kcpWg
'设置Excel报告样式51Testing软件测试网-RrpTftt{
A-?nL2PSX0 If Not fso.FileExists(ReportExcelFile) Then51Testing软件测试网p)G6b1mC:Be ]
d[)AQ#I.Sx$T(f"{119676 oExcel.Workbooks.Add51Testing软件测试网6Ai*c-RM&_2bI
%s)a1Y2Vl7M+D{U'u119676 51Testing软件测试网}0a;Qm]r51Testing软件测试网jEV8qg,^u
'获取工作簿的第一个Sheet页51Testing软件测试网 x&Q$I Rla^oM51Testing软件测试网 ZKP5v7I-]j7MW
Set ōbjSheet = oExcel.Sheets.Item(1)51Testing软件测试网Lc)Z7O$q
*d{#f^u119676 oExcel.Sheets.Item(1).Select51Testing软件测试网,H&e4pwJZ9li9g3KQ
t'_.vy2g5\k0 51Testing软件测试网\Z0[N/]O8}51Testing软件测试网.[5jk2y6uY:u
With objSheet
c E0?}$}5fZ0ft+\!d6D\ Z)V5{rI119676 '更改sheet名51Testing软件测试网 s4H7Bq,g Mv4rZ
A3id$k)W2Gu119676 .Name = "Test_Summary"51Testing软件测试网Ch0Hl2y}
9Ed9]*X^119676 51Testing软件测试网2`yip+h c8Q$A
6P!c`C-])N+zL119676 '设置列宽
Be+[m"M!d4K,N0+K d Y.K3F5V7hfo6S119676 .Columns("A:A").ColumnWidth = 551Testing软件测试网 q6qKm2M/n8q)g
Z.x0aG5r mh(UE@0 .Columns("B:B").ColumnWidth = 3551Testing软件测试网+Q7b)R1].@2M B|
1~6i*I7A{0Qt119676 .Columns("C:C").ColumnWidth = 1051Testing软件测试网 ]w1?(tF3Azx
q-w*l`{:I0 .Columns("D:D").ColumnWidth = 6051Testing软件测试网g${4_F&]2{
!ZK7N\UQ0 .Columns("A:D").HorizontalAlignment = -413151Testing软件测试网*?y M]hq)S51Testing软件测试网 oQo6R1W"E i0`
.Columns("A:D").WrapText = True51Testing软件测试网.^Q^2bA2iO
9g8RV7M{-uTwv1xu0 51Testing软件测试网Gttdmc6Y;B51Testing软件测试网snf8@,g8G
'设置显示区域的字体类型和大小51Testing软件测试网oRy\`51Testing软件测试网's)^ d)a!Z4~1`m/a
.Range("A:D").Font.Name = "Arial"
FM*}} J0ZW7l M ^g119676 .Range("A:D").Font.Size = 1051Testing软件测试网xf7S,I4ahGwS
*K6`Ac8qD119676 51Testing软件测试网9u7WKw%yZ8p
\'A$?7dH9ig fj119676 '设置文件头格式51Testing软件测试网O\?7e+lV/]
w|K*w.Qy"FlXX }0 .Range("B1").Value = "TestResult"51Testing软件测试网3e+EvO4X s51Testing软件测试网(o-N`5?Bk(\l&n
.Range("B1:C1").Merge51Testing软件测试网,cr EZG0WJ
LE8WUw4XC!@+Ea!j(M119676 51Testing软件测试网 ] FinV!g
b3m,Yv0}A-t119676 '设置文件头格式字体和颜色51Testing软件测试网Ku^mA
qe)U y p&zA.r?+_.T119676 .Range("B1:C1").Interior.ColorIndex = 53
!OU5oZmhE;QV5E0+rt5Th+L-dyQx119676 .Range("B1:C1").Font.ColorIndex = 1951Testing软件测试网n$t3u&S-nnR7z
I_Aa:wN\J0 .Range("B1:C1").Font.Bold = True
4lQ.M5?#I%]7v0i3YRF8c(g^#A6x+Ii119676 51Testing软件测试网 a B pLTB4t6TN51Testing软件测试网4\$n%O0dBcQ6ZR(co5^1p
'设置执行的日期和时间
"B7Md vHl,d/NN0Pl7|SE119676 .Range("B3").Value = "Test Data:"51Testing软件测试网5UXrh1^ {
W BR4d%p119676 .Range("B4").Value = "Test Start Time:"51Testing软件测试网1p/AQFP\1Pnh
-[[];\9E!Y119676 .Range("B5").Value = "Test End Time:"
(T0B]9b:S&J/EW08f+{0|x;eS/WM+x119676 .Range("B6").Value = "Test Duration: "
@wHV/a*G*R;BT0bma;ae6St8Sk119676 .Range("C3").Value = Date51Testing软件测试网O7k5w6T;Znx
2C-a6Gm(YfOM0 .Range("C4").Value = Time51Testing软件测试网hsem*q ?}8xmU*bE
c:]pD u-}j+p119676 .Range("C5").Value = Time51Testing软件测试网8p.t%|p?&U
]Q&e8G;Av_~0 .Range("C6").Value = "=R[-1]C-R[-2]C"51Testing软件测试网,Yc"\~#JhY51Testing软件测试网"kk8iE.A3x+\
.Range("C6").NumberFormat = "[h]:mm:ss;@"51Testing软件测试网^ u2uR7i~{V%`
n!J5^2yO$d0 51Testing软件测试网ox(s ~._51Testing软件测试网h!S*[[&rS!F*r Z:y
'设置日期和时间cell的边界51Testing软件测试网"[$u`NZQ}K7S