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)
这句时报错了，好像是无法找到那个函数。小弟是新手，不知该怎样调用，忘各位指点

黑羽祭

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

踏雪飞狐

回复 2# 黑羽祭


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

踏雪飞狐

已解决了，谢谢楼上的兄弟