ACCESS模块里访问EXCEL的问题

olderdream2007@

在ACCESS模块里，想通过创建Excel.application对象.  之后打开EXCEL工作簿操作。
不过，如何判断工作表里有几行呢？ （如果是EXCEL模块里 直接用 .range("a65536").end(xlup).row即可知道最后一列）

Sub test()
Dim i As Long
Set ae = CreateObject("excel.application")
ae.workbooks.Open CurrentProject.Path & "/t.xls"
ae.Visible = True
With ae.activeworkbook
' For i = 1 To ae.range("a65536").end(xlup).row
For i = 1 To 15
   Debug.Print ae.cells(i, 1).Value
Next i
End With
End Sub

zpy2

ae.range("a65536").end(3).row

roych

1. Sub test()
   
2. '引用excel库
   
3. Dim i As Long
   
4. Dim exl As New Excel.Application
   
5. Dim wb As Workbook
   
6. Dim ws As Worksheet
   
7. Set wb = exl.Workbooks.Open(CurrentProject.Path & "\t.xls")
   
8. Set ws = wb.ActiveSheet
   
9. For i = 1 To ws.UsedRange.Rows.Count
   
10.    Debug.Print ws.Cells(i, 1).Value
    
11. Next i
    
12. End Sub

复制代码

一直搞不懂，很多人明知后期绑定效率跟前期绑定的效率相差不止一个数量级的，还那么爱用前期绑定。。。。

tmtony

借用Roych的代码
exl.Workbooks.Open(CurrentProject.Path & "\t.xls").ActiveSheet.UsedRange.Rows.Count

风中漫步

学习