笔记：NEC QTP 第四个实例

2019-11-22 11:25:57 浏览数 (1)

今天打好了一个基本的基于事件的框架。赶快记录下代码。

配合上次写的类进行使用。

首先，主文件写这些代码

ExecuteFile"C:UsersadminDocumentsUnified Functional TestingClassCol.vbs"

ExecuteFile"C:UsersadminDocumentsUnified Functional TestingActionCol.vbs" '载入编译好的库

Set SheetObj =new Sheet '载入动作表

SheetObj.SetSheet "Action.xls","actionSheet"

Dim curText '全局变量最后一个文本信息

Dim curRow '全局变量当前运行到的行

Dim couldDo '全局变量，判断下一行是否执行

couldDo=1 '初始化对象

Main SheetObj,0,0

Function func1

print "hahahaha"

End Function

excel中，定义如下格式的文件

0 人点赞