怎样把Excel表格中的数据依次读入到QTP中?
上一篇 /
下一篇 2007-11-05 16:28:17
可使用如下方法:
Dim i,rows
DataTable.ImportSheet "E:\temp\UU_No.xls","UU","Global"
i=0
rows=datatable.GetSheet("Global").GetRowCount
Do while i<rows
i=i+1
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_START").Click
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_START").Set DataTable("StartNo", dtGlobalSheet)
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_END").Click
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_END").Set DataTable("EndNo", dtGlobalSheet)
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_GRADE").Click
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebEdit("SYS_CONTROL_PARAMETER/UU_GRADE").Set "100"
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody").WebButton("处理").Click
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("mainbody_2").WebButton("确定").Click
datatable.getsheet("Global")
datatable.setcurrentrow(i)
loop
收藏
举报
TAG: