计算出Excel中sheet1的记录条数？

Fucntion Ecount(Ename as string,Esheet as string) as long
'引用:Microsoft Excel 11.0 Object Libraya
'参数：Ename --Excel文件地址,Esheet--Excel标签
'示例：me.text1.value=Ecount("E:\表.xls","Sheet1")
'说明:Excel表的第一列不能为空
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim i As Long
If Right(Ename, 3) <> "xls" Then Exit Sub
xlApp.Application.Visible = False
Set xlBook = xlApp.Workbooks.Open(Ename)
xlBook.Application.Sheets(Esheet).Select
i=0
do while true
    i=i+1
    if nz(xlBook.Application.Cells(1,i),"")="" then
        exit do
    end if
loop
Ecount=i-1 '如果有字段名称行，则为i-2
xlApp.Quit
Set xlApp = Nothing
set xlBook=nothing
end function