qtp对excel表的操作

步骤：

1Excel的三层概念：Application、ExcelFile、Sheet，因此需要创建三个对象来实现对Excel文件的操作。首先创建一个Excel.Application对象excelapp，然后通过excelapp打开一个Excel文件，并返回一个对象给excelbook，最后通过excelbook的Sheets属性来操作某一个sheet。

2通过sheet对象的cells子对象来操作某一sheet中的区域，sheet对象可以通过usedRange属性来识别此文件已经使用的cells。通过其中的count方法来获取具体值

3操作完成，保存文件、关闭文件、退出程序

4 释放对象

代码如下：

Dim excelapp,excelbook,excelsheet
Set excelapp = createobject("excel.application")'创建execl的app对象

'excelapp.Visible=true 'excel是否可见

set excelbook=excelapp.Workbooks.Open("D:/test.xls")

Set excelsheet=excelbook.worksheets("2011").usedrange'覆盖sheet的区域

rowcount=excelsheet.rows.count'取行数

columncount=excelsheet.columns.count'取列数

For i=1to rowcount
       For  j=1 to columncount
              'msgbox excelsheet.cells(i,j)

    Next

Next

Set excellsheet=nothing

excelbook.Close

excelapp.quit

'Set excelbook=nothing

'Set excelapp=nothing