QTP对Excel的操作函数

Class ExcelApp
   Private ExcelApp
   Private ExcelBook
   Private ExcelSheet
'打开指定的EXCEL文件
Function OpenExcel(excelFile)

    If Execl_CheckFileExist(excelFile)=1 Then
       Set ExcelApp = CreateObject("Excel.Application")
       Set ExcelBook= ExcelApp.Workbooks.Open(excelFile)
    Else
       Set ExcelBook = "没有找到该文件"
    End If
End Function
'打开指定的SHEET表
Function OpenSheet(Name)
    Set ExcelSheet = ExcelApp.Worksheets.Item(Name)
End Function
'获取指定行和列的值
Function GetValue(i,j)
    GetValue=ExcelSheet.Cells(i, j)
End Function
'得到打开表中的数据总行数
Function GetRows()
  GetRows=ExcelSheet.UsedRange.Rows.Count
End Function
'得到打开表中的数据总列数
Function GetColumns()
  GetColumns=ExcelSheet.UsedRange.Columns.Count
End Function
'判断所要打开的EXCEL是否存在
Function Execl_CheckFileExist(filename)
   Set fileobj=CreateObject("Scripting.FileSystemObject")
   If fileobj.FileExists(filename) Then
        Execl_CheckFileExist=1
   Else
        Execl_CheckFileExist=0
    End If
  Set fileobj=Nothing
End Function

'关闭表格，释放对象
Private Sub Class_Terminate
       On Error Resume Next
       ExcelBook.Close
       ExcelApp.Quit
       Set ExcelSheet=Nothing
       Set ExcelBook=Nothing
       Set ExcelApp=Nothing
       On Error Goto 0 
End Sub
End Class