使用Interop.Access时Access进程无法被.NET垃圾回收的正确处理方法

你的问题核心是COM互操作场景下，.NET垃圾回收机制无法自动及时清理Access的COM进程——因为RCW（运行时可调用包装）的引用计数未归零，且未显式关闭Access应用实例。以下是修正后的标准实现方式：

关键修正点 #

• 显式释放Access资源：先关闭打开的数据库，再调用退出方法终止Access进程，而非仅依赖垃圾回收
• 强制释放COM引用：通过Marshal.FinalReleaseComObject清除RCW对COM对象的绑定
• 针对性触发GC：在释放对象后主动触发垃圾回收，确保残留的RCW被彻底清理

修正后的代码 #

Imports System.Runtime.InteropServices
Imports Access = Microsoft.Office.Interop.Access

' ... 你的其他业务代码 ...

Dim accRpt As Access.Application = Nothing
Try
    accRpt = New Access.Application
    ' 直接使用accRpt即可，accRpt.Application是冗余引用
    accRpt.OpenCurrentDatabase(dataBasePath)
    accRpt.DoCmd.OpenReport(LOAD_TENDER_REPORT_NAME_EMAIL, Access.AcView.acViewPreview)
    accRpt.Visible = True
    accRpt.DoCmd.Maximize()

    ' 可选：若需等待用户手动关闭Access窗口后再执行清理，添加以下循环
    ' Do While accRpt.Visible
    '     System.Threading.Thread.Sleep(100)
    '     Application.DoEvents()
    ' Loop
Catch ex As Exception
    ErrHandler("View Report", ex)
Finally
    If accRpt IsNot Nothing Then
        Try
            ' 先关闭当前数据库（若存在）
            If accRpt.CurrentDb IsNot Nothing Then
                accRpt.CloseCurrentDatabase()
            End If
            ' 退出Access应用，不保存未更改内容
            accRpt.Quit(Access.AcQuitOption.acQuitSaveNone)
            ' 强制释放COM对象引用
            Marshal.FinalReleaseComObject(accRpt)
        Catch cleanupEx As Exception
            ErrHandler("Cleanup Access", cleanupEx)
        End Try
    End If
    ' 连续触发两次GC，确保残留的RCW被回收
    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.Collect()
    accRpt = Nothing
End Try

原代码无法清理进程的原因 #

1. 仅将accRpt设为Nothing，只是切断了.NET变量对RCW的引用，但RCW内部的COM引用计数可能仍大于0（比如Access自身的内部组件引用）
2. 未调用Quit()方法，Access进程会保持后台运行等待指令，不会主动终止
3. .NET垃圾回收是异步且非即时的，无法保证在程序逻辑结束前完成COM对象的清理

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