2013年12月10日
qtp:将excel数据导入DataTable并从第一行数据开始取值
摘要： 1.将excel数据导入DataTable Set Excelobj=createobject("Excel.Application") excelpath="C:\Users\Administrator\Desktop\4.xls" Excelobj.Workbooks.Open(excelpath) '打开excel的文件 Set newsheet=Excelobj.Sheets.Item(1) '打开excel的sheet colcount=newsheet.UsedRange.Columns.Count 'Add to H 阅读全文
posted @ 2013-12-10 17:01 赏客 阅读(601) 评论(0) 推荐(0) 编辑
qtp web随机获取下拉框的值
摘要： 1.先顶一个随机获取数的函数 Function GetList(i) randomize GetList=RandomNumber(0,i) End Function2.以下就是纯代码了，这里只展示一个下拉框是如何取值的 Dim stcount,stnum,rel,stobj Set stobj=browser("BIP管理平台").Page("BIP管理平台").WebList("read").Object stcount=stobj.options.length '获取下拉框对象的值个数 'msgbox(stcou 阅读全文
posted @ 2013-12-10 10:51 赏客 阅读(523) 评论(0) 推荐(0) 编辑
获取下拉值，这里以qtp自带的航班系统为例
摘要： Dialog("Login").WinEdit("Agent Name:").Set "t_cy"Dialog("Login").WinEdit("Agent Name:").Type micTab Dialog("Login").WinEdit("Password:").SetSecure "52a672c06f1014b113d76d3a4b2a40807ac5b872"Dialog("Login").WinEd 阅读全文
posted @ 2013-12-10 10:23 赏客 阅读(470) 评论(0) 推荐(0) 编辑