QTP中读取Excel表中的行数

public Function getRows(filename,sheetname)
Dim wb,bs
   Set wb=createobject("EXCEL.Application")
   Set bs=wb.workbooks.open(filename)   'filename文件路径+文件名称
   bs.worksheets(sheetname).activate
 i=1
 Do while(bs.worksheets(sheetname).cells(i,1).value<>"end")
  i=i+1
 Loop
 getRows=i-1
bs.close
 wb.workbooks.close
End Function