使用 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] 删除。
我来说两句