vikesgao

首先创建 Excel 对象:oExcel = CreateObject( "Excel.Application" )1) 显示当前窗口：oExcel.Visible = True2) 更改 Excel 标题栏：oExcel.Caption = "应用程序调用 Microsoft Excel"3) 添加新工作簿：oExcel.WorkBooks.Add4) 打开已存在的工作簿：o

在使用自动化测试框架的时候，发现有个问题，那就是经常把各种功能写成函数，保存在.VBS文件里面，而在脚本加载中，我们经常是在QTP中设置，如下图1，不过这样并不灵活，并且在脚本RUN的时候会LOAD所有的.VBS文件，容易发生错误，其实可以在每个脚本中，添加几句代码就可以解决这个问题'#######################load the VBS file###############

1.　if var = 0 then　　　　magbox "0"　　elseif var = 1 then　　　　　magbox "1"　　end if  2.　　select case var 　　　　case "0"　　　　　　magbox "0"　　　　　　case "1"　　　　　　magbox "1"　　　　end select 3.