使用Access VBA获取Excel工作表最后行列及代码运行失败问题问询

• Rows对象未绑定工作表：Access VBA环境下，未指定归属的Rows.Count默认调用Access自身的行计数对象，和Excel工作表的行数不一致，导致End方法的起始位置错误，返回的行号不符合预期。
• xlUp常量未定义：如果没有在Access VBA中引用Excel类型库，xlUp常量不会被自动识别，默认会被当做未赋值的变量，值为0，End方法的方向参数错误，无法向上查找最后非空行。
• 查找列存在空值：你当前用第4列（D列）作为查找基准，如果D列的最后一个非空行早于整个表的最后数据行，获取到的行号会小于实际最后行。

步骤1：提前声明Excel常量 #

不管有没有引用Excel类型库都可以生效，避免常量未定义报错：

Const xlUp As Long = -4162

步骤2：修正最后行号获取逻辑 #

给Rows.Count加上工作表对象前缀，确保取到的是Excel工作表的行数，最终返回的lastRow就是Long类型的数值，可以直接作为循环的边界值：

Dim lastRow As Long
' 以第4列为基准查找最后非空行
lastRow = myWorksheet.Cells(myWorksheet.Rows.Count, 4).End(xlUp).Row

如果需要获取整个工作表的最后行（不局限于第4列），可以用UsedRange方法：

With myWorksheet.UsedRange
    lastRow = .Rows(.Rows.Count).Row
End With

步骤3：完整遍历循环示例 #

以下是可直接复用的完整代码逻辑：

Const xlUp As Long = -4162
Sub ProcessExcelSheet()
    Dim excelApp As Object
    Dim myWorksheet As Object
    Dim lastRow As Long
    Dim i As Long
    
    ' 初始化Excel对象，替换为你自己的文件路径和工作表名
    Set excelApp = CreateObject("Excel.Application")
    Set myWorksheet = excelApp.Workbooks.Open("C:\你的文件路径.xlsx").Worksheets("目标工作表名")
    
    ' 获取最后行号
    lastRow = myWorksheet.Cells(myWorksheet.Rows.Count, 4).End(xlUp).Row
    
    ' 遍历数据行，示例从第2行开始跳过表头，可按需调整起始行
    For i = 2 To lastRow
        ' 此处替换为你自己的处理逻辑
        Debug.Print myWorksheet.Cells(i, 4).Value
    Next i
    
    ' 清理对象避免内存泄漏
    myWorksheet.Parent.Close SaveChanges:=False ' 不需要保存的话可以设为False，需要保存就设为True
    excelApp.Quit
    Set myWorksheet = Nothing
    Set excelApp = Nothing
End Sub

• 所有Excel对象的属性调用都要加上对应的前缀（比如myWorksheet.、excelApp.），避免Access VBA调用自身同名属性导致错误。
• 最后行号变量必须声明为Long类型，不要用Integer，Integer的最大值仅为32767，无法匹配Excel的最大行号。
• 如果工作表存在合并单元格、隐藏行的情况，建议先用UsedRange方法校验获取的最后行号是否符合实际情况。

内容的提问来源于stack exchange，提问作者elena