51Testing软件测试论坛

标题: 函数调用失败 [打印本页]

作者: fengxinzi0151 时间: 2011-8-12 11:05
标题: 函数调用失败
想将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 时间: 2011-8-12 11:23
'输入用户名，登陆系统
msgbox(DataTable("UserName",Sheet_Name))
msgbox(DataTable("Password",Sheet_Name))
这是把用户名和密码打印出来吧

作者: fengxinzi0151 时间: 2011-8-12 11:25
中间少了将用户名，密码赋值给AgentName和Passwrod的代码？

作者: rogerliu0303 时间: 2011-8-12 16:17
读外部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

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