Dim oConn As New ADODB.Connection Dim oRS As New ADODB.Recordset oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Book1.xls;" & _ "Extended Properties=""Excel 8.0;""" oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic oRS.MoveLast Msgbox oRS.Absoluteposition & " records in the Excel Sheet" oRS.Close oConn.Close
返回一个 Range 对象,此对象代表指定工作表中的已用区域
Dim oRS As New ADODB.Recordset
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Book1.xls;" & _
"Extended Properties=""Excel 8.0;"""
oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
oRS.MoveLast
Msgbox oRS.Absoluteposition & " records in the Excel Sheet"
oRS.Close
oConn.Close
然后你可以分析这个地址就知道行是从哪一行到哪一行列是从哪一列到哪一列了!