有关QTP使用Class的问题

happychap

假如我在一个.vbs或.qfl文件中自定义了一个类，那么，我要在QTP脚本中使用这个类，都应该做哪些工作呢？
PS：仅仅在QTP的Setting中指定Resources是不可行的，.vbs或.qfl中定义的类都不能被识别。

chenyb85

试了一下并不用每个文件中都写一个这样的方法，只要有一个这样函数就可以了。

gy21st

有四种方法
请参考老帖
http://bbs.51testing.com/viewthr ... mp;page=1#pid851721

happychap

这种方法不知会不会遇到另一个小问题：
如果有多个文件中都编写了类，那么就需要在每个文件中都写一个这样的方法，而QTP在遇到相同的方法时，好象是在Resources中选择最后一个与指定Function名称匹配的文件，从而可能导致有个类不能通过调用上面的newClass获得。

happychap

这种方法好，比我想出来的方法好多了，用之。
使用这种方法，就可以在想用对象的时候随时New出来。

chenyb85

把vbs文件加载到Resources中后，我用以下方法绕过QTP不识别导入的vbs文件中的类的问题。
在放置class(类)的vbs文件中，放置以下函数：
------------------------------------------------------------------------------------------------------------------
'/****************************************************/
'* 功能：由于QTP不识别导入的VBS文件中的类，因此定义此函数来返回相应的对象
'* 输入参数：className  ：要建立对象的类名
'* 返回值：返回类对象
'* 编写人：  chenyb
'* 编写日期：2008-10-16
'* 其他说明：以下只是方法，根据需要再扩展
'/****************************************************/
Public Function newClass(className)
    Dim strSentence,obj     
    strSentence = strSentence & "set obj = New " & className '创建对象   
    Execute strSentence  '执行字符串语句
    Set newClass = obj   '返回对象
End Function
----------------------------------------------------------------------------------------------------
然后就可以通过以下方法来创建类对象了：
------------------------------------------------------------------------------------------------------
Dim e
Set e = newClass("OPEXCEL")
e.setPath = environment("TestDir") & "/../data/test.xls"
e.connection
MsgBox e.getCellDate("Global","列二",1)
-------------------------------------------------------------------------------------------------------

superMax

学习

happychap

我在网上找了半天资料，也没找到具体的方法，现在是通过ExcuteGlobal来完成的，并且还存在缺陷，没办法，先用到吧。

小孩

恩，目前是不能识别得，不过可以同过 ExecuteFile 来执行脚本文件。
就可以支持类了