如何通过Access VBA关闭后台运行的Excel应用及工作簿？

你的代码有两个致命问题导致Excel进程残留：

• 打开函数逻辑错误：你在OpenExcelFile中刚打开工作簿、完成刷新，还没执行任何关闭操作就直接把appExcel、myWorkbook对象置为Nothing，直接丢失了当前Excel实例的引用，后续关闭函数根本没法定位到你之前打开的那个后台Excel进程。
• 关闭函数逻辑错误：你在CloseExcelFile里声明了myWorkbook对象但没有给它绑定任何实际打开的工作簿实例，直接调用myWorkbook("文件路径")属于无效语法，既没有关闭工作簿，也没有调用Excel应用的退出方法，自然没法结束进程。

首先把Excel应用、工作簿对象声明为模块级变量，让打开、关闭函数可以访问同一个Excel实例，不要提前释放对象引用，按照「关闭工作簿→退出Excel应用→释放对象」的顺序操作即可。
完整修复代码如下：

' 放在模块最顶部，声明为模块级变量，供两个函数共用
Private appExcel As Excel.Application
Private myWorkbook As Excel.Workbook

Public Function OpenExcelFile(strFilePath As String) As Boolean
    ' 避免重复创建Excel实例
    If Not appExcel Is Nothing Then
        OpenExcelFile = True
        Exit Function
    End If
    
    Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = False
    appExcel.DisplayAlerts = False ' 屏蔽所有弹窗，避免后台不可见状态下弹窗卡住进程
    Set myWorkbook = appExcel.Workbooks.Open(strFilePath)
    Pause 1
    myWorkbook.RefreshAll
    
    OpenExcelFile = True
    ' 注意：这里不要提前把appExcel、myWorkbook设为Nothing，否则会丢失实例引用
End Function

Public Function CloseExcelFile(strFilePath As String) As Boolean
    On Error Resume Next ' 容错处理，避免对象不存在时代码中断
    
    ' 第一步：关闭打开的工作簿
    If Not myWorkbook Is Nothing Then
        myWorkbook.Close SaveChanges:=False
        Set myWorkbook = Nothing
    End If
    
    ' 第二步：退出Excel应用程序，这步是结束进程的核心
    If Not appExcel Is Nothing Then
        appExcel.Quit
        Set appExcel = Nothing
    End If
    
    CloseExcelFile = True
End Function

• 必须调用appExcel.Quit方法才会真正结束Excel进程，仅释放VBA中的对象引用不会自动关闭后台进程。
• 测试代码前建议先打开任务管理器，把之前残留的所有Excel后台进程手动结束，避免僵尸实例影响测试结果。
• 如果代码运行中途报错中断，VBA不会自动执行关闭逻辑，此时需要手动结束残留的Excel进程，再重新调试。

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