如何将4个输入框内输入来自EXCEL的数据，是一个输入框一个EXCEL表吗？

cmlx2012

可能我说不太清楚，就是例如注册页面，账号，密码，确认码，身份证号码，这4个框必填，可以用一张EXCEL表顺序输入4个框吗？那如果我在其中一栏给的是错误的值，那其他的项怎么进行下去
自动化菜鸟啊，求高手！

AntonioNikki

可以 在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

是从excle读取数据吧？QTP可以写代码读取。如果遇到错误还想继续执行可以在代码首加条语句：on error resume next

melodycindy

不晓得你用的是什么自动化工具还是编程实现的，你的意思是当输入错误值就会弹出报错窗口导致剩余的值无法输入？首先截获预期的这个弹出窗口，但是从用户使用角度而言，当他输入错误值提示错误了，他就会按照提示重新输入正确值，再继续下面的。所以从用户场景来说，你的用例到底是怎么设计的，如果你偏要四个值都输入，其中有错误的值夹在中间，你又不做截获窗口处理，但从解决这个问题角度，那你可以调整输入顺序，即先输入正确值的几个项，最后输入那个错误的。

黑羽祭

可以读Excel，一列一个数值，然后一行一行的读取。如果遇到错误，做下判断，跳过或者取消添加就行了。
贴上读Excel的函数

1. '从Excel中取值
   
2. a = QTP_ReadExcel("c:\config.xls","sheet1")
   
3. 
   
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
    
15. 
    
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
    
25. 
    
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
    
35. 
    
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

在学习中 看看问题的解决方法  
留下脚印，以后碰到了可以用