51Testing软件测试论坛

标题: 如何将4个输入框内输入来自EXCEL的数据，是一个输入框一个EXCEL表吗？ [打印本页]
作者: cmlx2012    时间: 2012-7-24 13:46
标题: 如何将4个输入框内输入来自EXCEL的数据，是一个输入框一个EXCEL表吗？
可能我说不太清楚，就是例如注册页面，账号，密码，确认码，身份证号码，这4个框必填，可以用一张EXCEL表顺序输入4个框吗？那如果我在其中一栏给的是错误的值，那其他的项怎么进行下去
自动化菜鸟啊，求高手！
作者: AntonioNikki    时间: 2012-7-25 10:38
可以 在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")
然后分别传值就可以了，有问题再留言
作者: ring12345    时间: 2012-7-25 10:42
是从excle读取数据吧？QTP可以写代码读取。如果遇到错误还想继续执行可以在代码首加条语句：on error resume next
作者: melodycindy    时间: 2012-7-25 15:26
不晓得你用的是什么自动化工具还是编程实现的，你的意思是当输入错误值就会弹出报错窗口导致剩余的值无法输入？首先截获预期的这个弹出窗口，但是从用户使用角度而言，当他输入错误值提示错误了，他就会按照提示重新输入正确值，再继续下面的。所以从用户场景来说，你的用例到底是怎么设计的，如果你偏要四个值都输入，其中有错误的值夹在中间，你又不做截获窗口处理，但从解决这个问题角度，那你可以调整输入顺序，即先输入正确值的几个项，最后输入那个错误的。
作者: 黑羽祭    时间: 2012-7-26 15:55
可以读Excel，一列一个数值，然后一行一行的读取。如果遇到错误，做下判断，跳过或者取消添加就行了。
贴上读Excel的函数


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

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

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

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

  36. ' 获取表格的使用范围
  37. Set oSheet = oExcel.Worksheets(sSheetName).UsedRange
  38. ' 获取从A列到Z列，从第1行到第1000行的范围i中的所有值
  39. Set oRange = oSheet.Range("A1:Z1000")
  40. '把Excel数据转换到数组
  41. arrRange = oRange.Value
  42. ' 关闭工作簿
  43. oExcel.WorkBooks.Item(1).Close
  44. ' 退出Excel
  45. oExcel.Quit
  46. Set oExcel = Nothing
  47. ' 返回包含Excel数据的数组
  48. QTP_ReadExcel = arrRange
  49. End Function
复制代码
作者: louqqson008    时间: 2012-7-26 16:41
在学习中 看看问题的解决方法  
留下脚印，以后碰到了可以用



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2