访问VBA：获取Excel工作表的最后一行

Question

使用Access VBA，我从Excel文件中获取了一些数据以移至Access表。

我懂了

应用程序定义或对象定义的错误

在此代码行上：

For Each c1 In mSheet.Range(mSheet.Range("F4"), mSheet.Range("F4").End(xlDown)).Cells

这个问题肯定是由于.End(xlDown) ：我尝试删除.End(xlDown)并起作用。

作为替代方案，我使用了此其他代码，但未做任何更改：

Dim mRow As Integer
mRow = mSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

在这种情况下，我得到

错误1004：无法获取Range类的SpecialCells属性。

Answer 1

除非您对Excel对象库设置了引用， xlDown没有值。 加：

Const xlDown as Long = -4121

您的代码。 虽然通常最好从纸的底部开始整理。