从Access检测Excel是否运行并关闭后台Excel进程的实现疑问

你当前的代码仅能检测到后台运行的Excel进程，但缺少关闭进程的核心逻辑。以下是修改后的完整代码，实现检测进程、询问用户并在确认后强制关闭后台Excel进程的功能：

' 定义Excel状态枚举（若未定义需添加）
Enum ExcelState
    NotChecked = 0
    UserOpened = 6 ' vbYes对应值
    AutoClosed = 7 ' vbNo对应值
End Enum

Dim IsExcelOpen As ExcelState

Sub CloseExcelIfOpen()
    Dim objProcesses As Object, objProcess As Object
    Dim strProcessName As String
    
    strProcessName = "Excel.exe"
    ' 获取所有运行中的Excel进程
    Set objProcesses = GetObject("winmgmts:").ExecQuery("select * from win32_process where name='" & strProcessName & "'")
    
    If objProcesses.Count > 0 And IsExcelOpen = ExcelState.NotChecked Then
        IsExcelOpen = MsgBox("你是否手动打开了Excel？", vbYesNo)
        
        ' 用户选择“否”时，强制关闭所有后台Excel进程
        If IsExcelOpen = vbNo Then
            For Each objProcess In objProcesses
                objProcess.Terminate ' 调用进程终止方法
            Next objProcess
            IsExcelOpen = ExcelState.AutoClosed
        Else
            IsExcelOpen = ExcelState.UserOpened
        End If
    End If
End Sub

关键修改说明： #

• 新增进程遍历与关闭逻辑：当用户确认未手动打开Excel时，通过Terminate方法逐个关闭后台Excel进程
• 完善ExcelState枚举的对应值，确保状态标记准确
• 优化变量命名，提升代码可读性

额外优化建议： #

• 在CSV转Excel的核心代码中，确保每次操作后正确释放Excel对象，从根源减少残留进程：

  ' 示例：正确关闭并释放Excel对象
  xlApp.Quit
  Set xlWorkbook = Nothing
  Set xlApp = Nothing
  

• 给进程终止操作添加错误捕获，避免权限问题导致的报错：

  On Error Resume Next
  objProcess.Terminate
  On Error GoTo 0
  

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