QTP基本使用——Excel

'VBS对Excel的基本使用 
'创建Excel对象， 使用CreateObject()方法
Set oExcelApp = CreateObject("Excel.Application")

'显示当前窗口
oExcelApp.Visible = True

'更改Excel标题栏
oExcelApp.Caption = "Test Excel"

'添加一个新的Excel，并赋值为oExcelXls，方便后面的操作
Set oExcelXls = oExcelApp.Workbooks.Add

'如果打开已经存在的Excel， 则使用一下命令
'Set oExcelXls = oExcelApp.Workbooks.Open("d:/test.xls")

'  这里有两个方法
oExcelXls.WorkSheets(2).Activate
'或者oExcel.WorksSheets( "Sheet2" ).Activate

'给单元格赋值
oExcelXls.Cells(1,2).Value = "第一行第二列"


'另存为testbbk.doc
'问题：为什么不直接save, 而用saveas呢
oExcelXls.SaveAs "d:/testbbk.xls"
msgbox "文件创建成功！"

oExcelXls.Close

oExcelApp.Quit

Set oExcelXls = Nothing
Set oExcelApp = Nothing

 

'还有很多关于Excel的操作， 主要是VBS的方法实现，