Office中国论坛/Access中国论坛

标题: ACCESS模块里访问EXCEL的问题 [打印本页]

作者: olderdream2007@ 时间: 2015-10-27 21:16
标题: ACCESS模块里访问EXCEL的问题
在ACCESS模块里，想通过创建Excel.application对象. 之后打开EXCEL工作簿操作。
不过，如何判断工作表里有几行呢？（如果是EXCEL模块里直接用 .range("a65536").end(xlup).row即可知道最后一列）
[attach]57367[/attach]
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 时间: 2015-10-28 05:26
ae.range("a65536").end(3).row

作者: roych 时间: 2015-10-28 10:30

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

复制代码

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

作者: tmtony 时间: 2015-10-28 12:57
借用Roych的代码
exl.Workbooks.Open(CurrentProject.Path & "\t.xls").ActiveSheet.UsedRange.Rows.Count

作者: 风中漫步 时间: 2015-10-28 13:24
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)