如何得到EXCEL当前Sheet的总行数？

Question

用ADO打开方式，把EXCEL作为数据库打开后用select count(*)可以得到总行数

Answer 1

http://www.csdn.net/expert/topic/229/229259.shtm

Answer 2

dim conn as connection
dim rs as Recordset
set conn=new connection
set rs=new Recordset
conn.CursorLocation=adUseClient
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的Excel文件名;User ID=Admin;Password=;Extended properties=Excel 5.0"
conn.Open
rs.open "Select * from 你的Sheet名称",conn
rs.RecordCount就是你要的行数。

Answer 3

可以这样啊：bjExcelSheet.Cells(16000,2).End(xlUP).Row  给分。