本例通过注册新浪会员页面(http://login.sina.com.cn/signup/signup.php)进行讲解。
需求:
1、新浪会员,填写注册信息,点击提交
2、如果不符合输入域校验要求,会给出相应的错误提示
3、我们验证,给出的输入域错误提示,是否是我们期望的值,
如对第一项邮箱的校验, 如果不符合则 期望值 正确的提示“邮箱名长度应为4-16位” 如果给出的提示不与我们期望的不一致,则把错误的结果写入到Excel中,与期望值进行对比,然后得出测试用例执行时通过还是失败。我们分为三步走。
1、先设定Excel格式,如测试用例参数值(即输入邮箱的值)、期望值、测试用例及结果等。由于无法上传附件,因此附图,如下图所示:
Vbs对Excel的操作 实例讲解" name=image_operate_66701293756379031 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s5.sinaimg.cn/middle/5007d1b1g75aa99db5834&690" width=690 height=192>
2、录制 注册新浪会员页面(http://login.sina.com.cn/signup/signup.php)设置邮箱为“123”,点击提交,停止,录制代码如下图所示;
Vbs对Excel的操作 实例讲解" name=image_operate_26371293755930093 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s6.sinaimg.cn/bmiddle/5007d1b1g98aa03d060d5&690" real_src="http://s6.sinaimg.cn/bmiddle/5007d1b1g98aa03d060d5&690">
Vbs对Excel的操作 实例讲解" name=image_operate_80961293755976765 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s16.sinaimg.cn/middle/5007d1b1g98aa0583c55f&690" width=528 height=43 real_src="http://s16.sinaimg.cn/middle/5007d1b1g98aa0583c55f&690">
3、录制完成后,我们看到邮箱给出的错误提示是“邮箱名长度应为4-16位”,是符合我们的要求的,我们假设后续版本中温馨提示不对,我们如何处理呢?因此我们首先想到是检查点,检查其是否正确。添加检查点需要再QTP 在Record模式下,点击Insert-CheckPoint-Text CheckPoint然后选中 “邮箱名长度应为4-16位”,添加检查点后,如下图:回放我们看到能通过。
Vbs对Excel的操作 实例讲解" name=image_operate_9341293755976156 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s16.sinaimg.cn/middle/5007d1b1g98aa07110a1f&690" real_src="http://s16.sinaimg.cn/middle/5007d1b1g98aa07110a1f&690">
4、而这样添加检查点,与我们设想的操作Excel是不一致的(目前并未操作Excel)。我们需要对代码进行修订,因此我们使用对象的GetROProperty 属性来进行验证。GetROProperty 属性能够获取对象的某个属性值,具体应用如下,如果想详细的参考用法,可以参考QTP帮助手册。如下图。
Vbs对Excel的操作 实例讲解" name=image_operate_24111293756017890 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s11.sinaimg.cn/middle/5007d1b1g98aa0a40678a&690" real_src="http://s11.sinaimg.cn/middle/5007d1b1g98aa0a40678a&690">
5、如下贴上完整的QTP修订后的代码。包括读Excel、写Excel及QTP对函数的操作
*************************************************************'
'函数/过程名称:DoExcel()
'函数/过程的目的:操作Excel(读写)
'假设:无
'影响:
'输入:无
'返回值:无
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:
'修改时间:
'*************************************************************'
Function DoExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前台显示
ObjExcel.Visible = False
'设置变量SrcExcel等于Excel工作薄open
'Activate定位活动的sheet
'并给某一单元格赋值
Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
SrcExcel.WorkSheets(sheetname).Activate
SrcExcel.WorkSheets(sheetname).Cells(x,y).Value = Checkvalue
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
ObjExcel.DisplayAlerts = False
ObjExcel.save
'Excel退出,释放资源
ObjExcel.quit
Set ObjExcel = Nothing
Set SrcExcel = Nothing
End Function
''*************************************************************'
'函数/过程名称:ReadExcel()
'函数/过程的目的:操作Excel(读写)
'假设:无
'影响:
'输入:无
'返回值:无
'创建者:lee
'创建时间:2010/12/13
'修改者:
'修改原因:
'修改时间:
'*************************************************************'
Function ReadExcel(filepath,sheetname,x,y)
Dim ObjExcel,SrcExcel,ExcValue
Set ObjExcel = CreateObject ("Excel.Application")
'Excel程序不在前台显示
ObjExcel.Visible = False
'设置变量SrcExcel等于Excel工作薄open
'Activate定位活动的sheet
'并给某一单元格赋值
Set SrcExcel = ObjExcel.WorkBooks.Open(filepath)
SrcExcel.WorkSheets(sheetname).Activate
ExcValue = SrcExcel.WorkSheets(sheetname).Cells(x,y).Value
'当出现“在当前位置发现已经存在为"RESUME.XLW"的文件。您希望将该文件替换掉吗?” 使用DisplayAlerts代码该列
ObjExcel.DisplayAlerts = False
ObjExcel.save
DoExcel = ExcValue
'Excel退出,释放资源
ObjExcel.quit
Set ObjExcel = Nothing
Set SrcExcel = Nothing
End Function
'Call DoExcel("D:\case.xls","Sheet1",9,5)
Dim Checkvalue
'从读取Excel的输入值,赋予邮箱输入域
Browser("注册新浪会员").Page("注册新浪会员").WebEdit("user_name").Set ReadExcel ("D:\case.xls","Sheet1",11,5)
Browser("注册新浪会员").Page("注册新浪会员").WebButton("提交").Click
wait (2)
Checkvalue= Browser("注册新浪会员").Page("注册新浪会员").WebElement("邮箱名长度应为4-16位").GetROProperty("innertext")
'将获得的温馨提示写入Excel中
Call DoExcel("D:\case.xls","Sheet1",11,8)
6、第5步完成后,运行QTP,然后进入D盘下,查找case.xls,可以看到Excel的结果,如下图所示。
Vbs对Excel的操作 实例讲解" name=image_operate_63181293756346750 alt="QTP对Excel的操作(三)之 Vbs对Excel的操作 实例讲解" src="http://s9.sinaimg.cn/middle/5007d1b1g98aa1226ac28&690" width=690 height=191 real_src="http://s9.sinaimg.cn/middle/5007d1b1g98aa1226ac28&690">
7、通过excel的统计,我们能够很明显的看到那些测试用例执行通过,那些未通过,而且还可以进行bug成功与失败的统计图。以后,只需要更改输入值,及期望值等即可,完全实现了自动化。