代码实现EXECEL的数据条数

还要请教下！在vb6.0中怎样用代码实现EXECEL的数据条数？ --------------------编程问答-------------------- 实在不行用循环一个一个的统计吧:

for i=1 to sh.rows.count-1
  if sh.cells(i,1)<>"" then j=j=1
  elseif exit for 
 next 
--------------------编程问答-------------------- 什么意思   是excel表中一共 有 几行或几列 数据吗? --------------------编程问答-------------------- 用ADO对象打开它，
返回其静态Recordset对象的Count属性值即可 --------------------编程问答--------------------

Private Sub Command1_Click()

  Dim i As Long, A As Long

  Dim Eneters As String

  

    Set ex = CreateObject("Excel.Application")

    Set wb = ex.Workbooks.Open("C:\A.XLS") '打开你的文件

    Set sh = wb.Sheets(1)   '第一个工作表

     

    A = ex.Application.WorksheetFunction.CountA(Columns("A:A"))  'A列中一共有几行数据

    B = ex.ActiveSheet.UsedRange.Rows.Count '表中最后一行数位置

    wb.Close SaveChanges:=True    '直接关闭不保存

    ex.Quit

     'ex.Visible = True

    Set ex = Nothing

    Set wb = Nothing

    Set sh = Nothing

End Sub

--------------------编程问答-------------------- Private Sub Command1_Click() Dim i As Long, A As Long  Dim Eneters As String  Set ex = CreateObject("Excel.Application") Set wb = ex.Workbooks.Open("C:\A.XLS") '打开你的文件  Set sh = wb.Sheets(1) '第一个工作表  A = ex.Application.WorksheetFunction.CountA(Columns("A:A")) 'A列中一共有几行数据  B = ex.ActiveSheet.UsedRange.Rows.Count '表中最后一行数位置  wb.Close SaveChanges:=True '直接关闭不保存  ex.Quit 'ex.Visible = True  Set ex = Nothing  Set wb = Nothing  Set sh = Nothing End Sub

--------------------编程问答-------------------- 楼主消失在贴子中

补充：VB ,  API