如何将4个输入框内输入来自EXCEL的数据，是一个输入框一个EXCEL表吗？
可能我说不太清楚，就是例如注册页面，账号，密码，确认码，身份证号码，这4个框必填，可以用一张EXCEL表顺序输入4个框吗？那如果我在其中一栏给的是错误的值，那其他的项怎么进行下去:'(自动化菜鸟啊，求高手！ 可以 在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")
然后分别传值就可以了，有问题再留言 是从excle读取数据吧？QTP可以写代码读取。如果遇到错误还想继续执行可以在代码首加条语句：on error resume next 不晓得你用的是什么自动化工具还是编程实现的，你的意思是当输入错误值就会弹出报错窗口导致剩余的值无法输入？首先截获预期的这个弹出窗口，但是从用户使用角度而言，当他输入错误值提示错误了，他就会按照提示重新输入正确值，再继续下面的。所以从用户场景来说，你的用例到底是怎么设计的，如果你偏要四个值都输入，其中有错误的值夹在中间，你又不做截获窗口处理，但从解决这个问题角度，那你可以调整输入顺序，即先输入正确值的几个项，最后输入那个错误的。 可以读Excel，一列一个数值，然后一行一行的读取。如果遇到错误，做下判断，跳过或者取消添加就行了。
贴上读Excel的函数
'从Excel中取值
a = QTP_ReadExcel("c:\config.xls","sheet1")
'---------------------------------------------------------------------------------------------------------------------------------
'名 称：QTP_ReadExcel
'作 用：从Excel读数据
'参 数：sFileName：EXCEL文件名 sSheetName：Sheet表名
'返回值：把EXCEL中内容存至QTP_ReadExcel数组
'---------------------------------------------------------------------------------------------------------------------------------
Function QTP_ReadExcel(sFileName,sSheetName)
Dim oExcel
Dim oSheet
Dim oRange
Dim arrRange
On Error Resume Next
' 创建Excel应用程序对象
Set oExcel = CreateObject("Excel.Application")
If err.Number <> 0 Then
MsgBox "未能初始化Excel" & vbCrLf & _
"请确保Excel已安装", vbCritical
Exit Function
End If
On Error GoTo 0
On Error Resume Next
' 打开Excel文件
oExcel.Workbooks.Open(sFileName)
If err.Number <> 0 Then
MsgBox "未能加载Excel文件" & vbCrLf & _
"请确保Excel文件路径正确或格式正确", vbCritical
Exit Function
End If
On Error GoTo 0
' 获取表格的使用范围
Set oSheet = oExcel.Worksheets(sSheetName).UsedRange
' 获取从A列到Z列，从第1行到第1000行的范围i中的所有值
Set oRange = oSheet.Range("A1:Z1000")
'把Excel数据转换到数组
arrRange = oRange.Value
' 关闭工作簿
oExcel.WorkBooks.Item(1).Close
' 退出Excel
oExcel.Quit
Set oExcel = Nothing
' 返回包含Excel数据的数组
QTP_ReadExcel = arrRange
End Function 在学习中 看看问题的解决方法
留下脚印，以后碰到了可以用
页:
[1]
