文章列表
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
oExcel = CreateObject( "Excel.Application" )
1) 显示当前窗口：
oExcel.Visible = True
2) 更改 Excel 标题栏：
oExcel.Caption = "应用程序调用 Microsoft Excel"
3) 添加新工作 簿：
oExcel.WorkBooks.Add
4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )
5) 设 ...
'************************************
'函数功能：获取项目路径并返回
'输入参数：
' 无
'返回值：
' 返回类型，目录对象
'示例调用：
'temp = GetPath
'*************************************
Public Function GetPath
On Error Resume Next
GetPath= createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder ...
'************************************
'函数功能：加载外部VBS
'输入参数：
' 外部VBS文件路径
'返回值：
' 无
'*************************************
sub Include(sInstFile)
'On Error Resume Next
Dim oFSO, f, s
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set f = oFSO.OpenTextFile(sInstFile)
...
在vbs中没有提供函数重载的功能，在很大程度上造成了开发脚本的不方便，其实在QTP中是可以将方法进行重载的，在QTP帮助里有很详细的说明
其实无非就是两个方法：
1、RegisterUserFunc
原型：
RegisterUserFunc TOClass, MethodName, Function ...