Access VBA操作Excel报错Method 'Rows' Of Object '_Global' Failed

• 运行场景：在Access环境中运行VBA代码，先通过DoCmd.TransferSpreadsheet方法将查询结果导出到20余个Excel工作簿，导出完成后需要对生成的文件做格式调整与内容修改，代码中涉及的文件路径已做脱敏处理。
• 报错表现：测试运行时第一个文件可以完整走完所有处理流程无异常；处理第二个文件时，执行到Rows(43).EntireRow.Delete语句即触发 "Method 'Rows' Of Object '_Global' Failed" 报错；单独提取第二个文件对应的处理代码运行时不会触发该报错，初步判断为第一个文件处理完成后未正确关闭、释放Excel实例，导致第二个文件编辑时对象调用异常。
• 原始出错代码片段（已脱敏）：

' 第一个文件处理逻辑略，报错发生在第二个文件处理段
Set xlsheet = xlbook.Worksheets("Funding Sheet")
With xlapp
    .Visible = False
    .DisplayAlerts = False
    .Workbooks.Open fpath
    xlsheet.Select
    xlsheet.Activate
    With ActiveSheet
        Rows(43).EntireRow.Delete 'ERROR OCCURS ON THIS LINE
        Range("F43:F2000").NumberFormat = "$#,##0.00"
    End With
End With

报错的核心触发逻辑有三点：

1. 无主的全局对象调用：代码中大量使用Rows、Range、ActiveSheet这类没有明确绑定到具体Excel对象的全局调用，VBA会自动匹配当前系统中激活的Excel实例下的活动对象。一旦前序实例销毁不彻底留下僵尸进程，这类全局调用就会指向已经释放的无效对象，直接触发方法调用失败。这也是为什么单独运行第二个文件代码不报错——此时没有残留进程，全局调用能正确命中新建的Excel实例。
2. 重复打开同一工作簿产生冗余对象：处理单个文件的逻辑中多次调用.Workbooks.Open fpath，同一个文件在同一个Excel实例中被重复打开，生成了多个独立的工作簿对象，但后续关闭操作只关闭了其中一个，残留的对象会锁住Excel实例句柄，导致实例无法完全退出。
3. 对象释放逻辑不严谨：虽然代码末尾写了Set xxx = Nothing的释放语句，但关闭工作簿、退出Excel的操作没有覆盖所有打开的对象，也没有按层级顺序释放，很容易在后台留下不可见的僵尸Excel进程，干扰后续新建实例的对象调用。
4. 多余的选中激活操作：代码中反复使用.Select、.Activate切换工作表焦点，这类操作本身稳定性极差，一旦焦点因为系统弹窗、进程抢占发生偏移，活动对象就会和预期不符，进一步放大报错概率。

按以下规则调整代码即可彻底解决该问题：

• 所有Rows、Range、Cells等操作，全部显式绑定到具体的xlsheet工作表对象，完全弃用ActiveSheet、全局无主调用，不要靠选中、激活工作表来操作内容。
• 单个工作簿只执行一次Workbooks.Open操作，删除所有重复打开同一文件的冗余代码。
• 每个文件处理完成后，严格按照「保存关闭工作簿→退出Excel应用实例→从低层到高层依次释放COM对象（工作表→工作簿→应用实例）」的逻辑做清理，避免后台残留僵尸进程。
• 删除所有不必要的.Select、.Activate语句，直接操作目标对象，从根源上避免焦点漂移问题。

修复后参考代码 #

Private Sub rmvHeaders_Click()
    Dim d As String
    Dim dt As Date
    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim fpath As String
    Dim cpedt1 As String
    Dim cpedt2 As String
    Dim dt1 As Date
    Dim dt2 As Date
    Dim y As String
    Dim strFileExists As String

    ' 抓取发薪日参数用于文件命名
    dt = DLookup("[Date]", "[Weekly Pay Date]")
    d = Format(dt, "mmddyy")
    dt1 = DateAdd("d", -8, dt)
    cpedt1 = Format(dt1, "mmddyy")
    dt2 = DateAdd("d", -2, dt)
    cpedt2 = Format(dt2, "mmddyy")
    y = Year(dt)

    ' 处理第一个CLIENT文件
    fpath = "\\hatserv5\public\2Invoices\CLIENT\CLIENT\" & y & "\week " & d & "\CLIENT" & d & ".xls"
    strFileExists = Dir(fpath)
    If strFileExists <> "" Then
        ' 单文件独立初始化Excel实例，仅打开一次目标文件
        Set xlapp = New Excel.Application
        xlapp.Visible = False
        xlapp.DisplayAlerts = False
        Set xlbook = xlapp.Workbooks.Open(fpath)
        
        ' 直接操作Funding Sheet，无需选中激活
        Set xlsheet = xlbook.Worksheets("Funding Sheet")
        With xlsheet
            .Rows(42).EntireRow.Delete
            .Range("F42:F2000").NumberFormat = "$#,##0.00"
        End With
        
        ' 直接操作Raw Data工作表
        Set xlsheet = xlbook.Worksheets("Raw Data")
        With xlsheet
            .Rows(2).EntireRow.Delete
            .Range("V2:X2000").NumberFormat = "$#,##0.00"
            .Range("AG2:AG2000").NumberFormat = "$#,##0.00"
            .Range("AV2:BD2000").NumberFormat = "$#,##0.00"
            .Range("A1:BE2000").EntireColumn.AutoFit
        End With
        
        ' 按顺序关闭释放资源
        xlbook.Close SaveChanges:=True
        xlapp.Quit
        Set xlsheet = Nothing
        Set xlbook = Nothing
        Set xlapp = Nothing
    End If

    ' 处理第二个CLIENT文件
    fpath = "\\hatserv5\public\2Invoices\CLIENT\CLIENT\" & y & "\week " & d & "\CLIENT " & d & " - Date from " & cpedt1 & " - " & cpedt2 & ".xls"
    strFileExists = Dir(fpath)
    If strFileExists <> "" Then
        ' 初始化全新的干净Excel实例
        Set xlapp = New Excel.Application
        xlapp.Visible = False
        xlapp.DisplayAlerts = False
        Set xlbook = xlapp.Workbooks.Open(fpath)
        
        Set xlsheet = xlbook.Worksheets("Funding Sheet")
        With xlsheet
            ' 所有操作显式绑定到当前工作表对象，不再使用全局Rows调用
            .Rows(43).EntireRow.Delete
            .Range("F43:F2000").NumberFormat = "$#,##0.00"
        End With

        ' 后续其余工作表、其余20余个文件的处理，全部遵循上述对象绑定规则即可
        ' ......

        ' 处理完成后按相同逻辑关闭释放资源
        xlbook.Close SaveChanges:=True
        xlapp.Quit
        Set xlsheet = Nothing
        Set xlbook = Nothing
        Set xlapp = Nothing
    End If
End Sub

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