51Testing软件测试论坛

标题: qtp函数调用问题 [打印本页]

作者: 踏雪飞狐 时间: 2012-3-23 13:29
标题: qtp函数调用问题
我的脚本如下：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)
这句时报错了，好像是无法找到那个函数。小弟是新手，不知该怎样调用，忘各位指点

作者: 黑羽祭 时间: 2012-3-23 13:38
回复 1# 踏雪飞狐
那个标红的语句后面和next之间分行了么？
调用的话放在外部VBS加载一下就可以直接使用了啊~
有错误提示么，有的话发一下看看。

作者: 踏雪飞狐 时间: 2012-3-23 14:07
回复 2# 黑羽祭

有换行的，本来是可以直接调用啊，但运行报错啊，不知什么原因[attach]78162[/attach]这是截图

作者: 踏雪飞狐 时间: 2012-3-23 15:42
已解决了，谢谢楼上的兄弟

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)