QTP 基础代码收集(转)-EXCEL操作

文章转自(般若菠萝蜜的博客)

 Excel.Application

Excel中几个常用对象：WorkBooks,WorkSheets,Cells.可以通过Name属性标识，也可通过index标识。

 Dim ExcelApp
 Set ExcelApp = CreateObject("Excel.Application")
 ExcelApp.WorkBooks.Open "F:\RandallTest.xls"
 Dim myWorkBook
 Set myWorkBook = ExcelApp.workbooks(1)
 myWorkBook.WorkSheets("Sheet1").Activate
 Dim myWorkSheet
 Set myWorkSheet = myWorkBook.worksheets("Sheet1")
 msgbox myWorkSheet.Cells(1,1).Value
 myWorkSheet.Cells(1,1).Value = "temp"
 myWorkBook.SaveAs "C:\RandallTest.xls"
 Set ExcelApp = nothing