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

斯特凡诺

使用 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 属性。

罗里

除非您设置了对 Excel 对象库的引用,否则xlDown没有任何价值。添加:

Const xlDown as Long = -4121

到您的代码。虽然通常最好从床单的底部开始工作。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章