51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1971|回复: 5
打印 上一主题 下一主题

[原创] 如何将4个输入框内输入来自EXCEL的数据,是一个输入框一个EXCEL表吗?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-7-24 13:46:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
可能我说不太清楚,就是例如注册页面,账号,密码,确认码,身份证号码,这4个框必填,可以用一张EXCEL表顺序输入4个框吗?那如果我在其中一栏给的是错误的值,那其他的项怎么进行下去
自动化菜鸟啊,求高手!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-7-25 10:38:48 | 只看该作者
可以 在excel里面建4列 分别是 账号Term1,密码Term2,确认码Term3,身份证号码Term4, 第一行写列名, 第二行写值
取值的时候, 分别取4次
Term1 = DataTable.Value("Term1", "Action1")
Term2 = DataTable.Value("Term2", "Action1")
Term3 = DataTable.Value("Term3", "Action1")
Term4 = DataTable.Value("Term4", "Action1")
然后分别传值就可以了,有问题再留言
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2012-7-25 10:42:12 | 只看该作者
是从excle读取数据吧?QTP可以写代码读取。如果遇到错误还想继续执行可以在代码首加条语句:on error resume next
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2012-7-25 15:26:38 | 只看该作者
不晓得你用的是什么自动化工具还是编程实现的,你的意思是当输入错误值就会弹出报错窗口导致剩余的值无法输入?首先截获预期的这个弹出窗口,但是从用户使用角度而言,当他输入错误值提示错误了,他就会按照提示重新输入正确值,再继续下面的。所以从用户场景来说,你的用例到底是怎么设计的,如果你偏要四个值都输入,其中有错误的值夹在中间,你又不做截获窗口处理,但从解决这个问题角度,那你可以调整输入顺序,即先输入正确值的几个项,最后输入那个错误的。
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    5#
    发表于 2012-7-26 15:55:23 | 只看该作者
    可以读Excel,一列一个数值,然后一行一行的读取。如果遇到错误,做下判断,跳过或者取消添加就行了。
    贴上读Excel的函数


    1. '从Excel中取值
    2. a = QTP_ReadExcel("c:\config.xls","sheet1")

    3. '---------------------------------------------------------------------------------------------------------------------------------
    4. '名     称:QTP_ReadExcel
    5. '作     用:从Excel读数据
    6. '参     数:sFileName:EXCEL文件名     sSheetName:Sheet表名
    7. '返回值:把EXCEL中内容存至QTP_ReadExcel数组
    8. '---------------------------------------------------------------------------------------------------------------------------------
    9. Function QTP_ReadExcel(sFileName,sSheetName)
    10. Dim oExcel
    11. Dim oSheet
    12. Dim oRange
    13. Dim arrRange

    14. On Error Resume Next
    15. ' 创建Excel应用程序对象
    16. Set oExcel = CreateObject("Excel.Application")
    17.   If err.Number <> 0 Then
    18.    MsgBox "未能初始化Excel" & vbCrLf & _
    19.     "请确保Excel已安装", vbCritical
    20.    Exit Function
    21.   End If
    22. On Error GoTo 0

    23. On Error Resume Next
    24. ' 打开Excel文件
    25. oExcel.Workbooks.Open(sFileName)
    26.   If err.Number <> 0 Then
    27.    MsgBox "未能加载Excel文件" & vbCrLf & _
    28.     "请确保Excel文件路径正确或格式正确", vbCritical
    29.    Exit Function
    30.   End If
    31. On Error GoTo 0

    32. ' 获取表格的使用范围
    33. Set oSheet = oExcel.Worksheets(sSheetName).UsedRange
    34. ' 获取从A列到Z列,从第1行到第1000行的范围i中的所有值
    35. Set oRange = oSheet.Range("A1:Z1000")
    36. '把Excel数据转换到数组
    37. arrRange = oRange.Value
    38. ' 关闭工作簿
    39. oExcel.WorkBooks.Item(1).Close
    40. ' 退出Excel
    41. oExcel.Quit
    42. Set oExcel = Nothing
    43. ' 返回包含Excel数据的数组
    44. QTP_ReadExcel = arrRange
    45. End Function
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    6#
    发表于 2012-7-26 16:41:19 | 只看该作者
    在学习中 看看问题的解决方法  
    留下脚印,以后碰到了可以用
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-8 14:13 , Processed in 0.074106 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表