TA的每日心情 | 郁闷 2015-7-30 14:37 |
---|
签到天数: 2 天 连续签到: 1 天 [LV.1]测试小兵
|
我的脚本如下:Function Search_company(keyword)
Browser("无线城市微求职:让工作来找您!").Navigate("http://wap.jobtone.cn")
If browser("无线城市微求职:让工作来找您!").Exist(10) Then
Browser("无线城市微求职:让工作来找您!").Page("无线城市微求职:让工作来找您!").WebList("SelectType").Select "公司"
Browser("无线城市微求职:让工作来找您!").Page("无线城市微求职:让工作来找您!").WebEdit("key").Set keyword
Browser("无线城市微求职:让工作来找您!").Page("无线城市微求职:让工作来找您!").Image("searchWork").Click 63,9
End If
End Function
Function SearchCompanyTo
CompanySheetName = "Action1"
DataTable.AddSheet CompanySheetName
Dim DatatableCompany
' 找到放置数据的excle表
DatatableCompany = "D:\QTPTesting\datatable\SearchCompany.xls"
DataTable.ImportSheet DatatableCompany, "Action1",CompanySheetName
' DataTable.GetSheet(CompanySheetName).SetCurrentRow(lineNumber) 此行代码是取得行号
systemutil.Run "IEXPLORE.EXE"
' 从第几行开始执行
For i=1 to DataTable.GetSheet("Action1").GetRowCount
DataTable.SetCurrentRow i
key_word = Datatable.GetSheet(CompanySheetName).GetParameter("key_word") ' 括号内的’key_word‘跟excle表里的列名对应
Call Search_company(key_word) next
End Function
call SearchCompanyTo
这里是两个function,我放在同一个文件回放没问题,但当我把第二个function单独保存起来,保存成vbs格式的,然后在qtp的resource里设置,回放第一个function,它自动调用SearchCompanyTo,放到Call Search_company(key_word)
这句时报错了,好像是无法找到那个函数。小弟是新手,不知该怎样调用,忘各位指点 |
|