函数调用失败

fengxinzi0151

想将QTP自带的订票系统的登录功能写成一个vbs的函数，其中用户名和密码通过外部得EXECL文件来使用
代码如下：
class Login
        Function login(Sheet_Name)
                '关闭所有的IE窗口，避免出现问题
                SystemUtil.CloseProcessByName "iexplore.exe"
              '打开flight4a.exe，进入登陆界面
                SystemUtil.Run "flight4a.exe","","D:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
                '输入用户名，登陆系统
                msgbox(DataTable("UserName",Sheet_Name))
                msgbox(DataTable("Password",Sheet_Name))
        End Function
        end class
在QTP里调用时，因为本地的数据表命名是login，所以用了call login(login)调用失败
不明白的地方很多，希望能得到帮助！非常感谢！

yakezone

'输入用户名，登陆系统
                msgbox(DataTable("UserName",Sheet_Name))
                msgbox(DataTable("Password",Sheet_Name))
这是把用户名和密码 打印出来吧

fengxinzi0151

中间少了将用户名，密码赋值给AgentName和Passwrod的代码？

rogerliu0303

读外部EXCEL不是这样写啊。DATATABLE(NAME,SHEET_NAME)这不是参数表的方式么？
我认为应该先创建一个excel对象，然后将其中的值读到数组。
Set oExcel=createobject("Application.excel")
oExcel.workbooks.open("filepath")
Set oRange=oExcel.worksheets("sheet1").usedRange
arrRange=oRange.value
这是读取外部EXCEL的代码。最后的数组是个二维数组。然后就可以用数组里的数据操作EDIT