VBScript高效关闭Excel工作簿与应用问题求助

从你的描述和代码来看，核心问题确实出在Excel对象的关闭与资源释放环节——虽然你调用了Quit，但由于对象释放不彻底、Excel后台存在未处理操作，导致进程迟迟不肯退出，进而拖慢了ERP的数据刷新节奏。

原代码的关键缺陷 #

你当前的关闭逻辑有几个可以优化的点：

• ActiveWorkbook.Close未明确指定保存状态，Excel可能在后台静默等待用户确认（哪怕你没看到弹窗）
• 没有按正确顺序释放所有Excel相关对象（objSheet、objWorkbook），残留的对象引用会让Excel进程保持活跃
• objExcel.Workbooks.Close属于冗余操作，关闭当前工作簿后无需再批量关闭所有工作簿

优化后的关闭与释放逻辑 #

把原有的关闭代码替换成下面这段，同时调整对象释放的顺序，确保所有资源都被彻底回收：

' 明确关闭当前工作簿，不保存（仅读取数据无需修改）
objWorkbook.Close SaveChanges:=False
' 先释放子对象，再释放父对象
Set objSheet = Nothing
Set objWorkbook = Nothing
' 退出Excel应用
objExcel.Quit
' 彻底释放Excel应用对象
Set objExcel = Nothing

兜底的强制清理方案 #

如果优雅关闭后仍有进程驻留，可以添加一段逻辑，精准终止当前脚本打开的Excel进程（避免误关用户其他Excel窗口）：

' 在Set objExcel = Nothing之后添加
Dim objWMIService, colProcesses, objProcess
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'EXCEL.EXE'")
For Each objProcess In colProcesses
    ' 通过命令行参数匹配我们打开的目标文件，避免误杀
    If InStr(objProcess.CommandLine, path) > 0 Then
        objProcess.Terminate()
        Exit For
    End If
Next
Set objProcess = Nothing
Set colProcesses = Nothing
Set objWMIService = Nothing

额外的性能优化点 #

除了关闭逻辑，还可以通过以下设置减少Excel的后台开销：

' 在创建Excel对象后添加
objExcel.Visible = False ' 让Excel在后台运行，避免界面渲染开销
objExcel.Calculation = -4135 ' 切换为手动计算，禁止自动刷新公式
objExcel.EnableEvents = False ' 关闭Excel事件触发，减少后台操作

完整优化后的脚本片段 #

If FileExists(path) Then
    Dim objExcel, objWorkbook, objSheet
    Set objExcel = CreateObject("Excel.Application")
    ' 启用后台运行与性能优化设置
    objExcel.Visible = False
    objExcel.Calculation = -4135
    objExcel.EnableEvents = False
    
    Set objWorkbook = objExcel.Workbooks.Open(path)
    Set objSheet = objWorkbook.Worksheets(3) ' 直接通过Workbook引用工作表，比ActiveWorkbook更可靠
    
    Dim row
    row = 3
    Do While row <=28
        val1 = objSheet.Cells(row,2).value
        val2 = objSheet.Cells(row,4).value
        val3 = objSheet.Cells(row,5).value
        WshShell.SendKeys "{INSERT}"
        WshShell.SendKeys val1
        WshShell.SendKeys "{TAB}"
        WshShell.SendKeys val2
        WshShell.SendKeys "{TAB}"
        WshShell.SendKeys val3
        row = row + 1
    Loop
    
    ' 优化后的关闭与释放流程
    objWorkbook.Close SaveChanges:=False
    Set objSheet = Nothing
    Set objWorkbook = Nothing
    objExcel.Quit
    Set objExcel = Nothing

    ' 兜底：精准终止当前脚本打开的Excel进程
    Dim objWMIService, colProcesses, objProcess
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'EXCEL.EXE'")
    For Each objProcess In colProcesses
        If InStr(objProcess.CommandLine, path) > 0 Then
            objProcess.Terminate()
            Exit For
        End If
    Next
    Set objProcess = Nothing
    Set colProcesses = Nothing
    Set objWMIService = Nothing

Else
    MsgBox("Your entries resulted in an invalid File Path. Please check the file location and try again")
End If

这些改动应该能让Excel进程在脚本执行完毕后立即退出，彻底消除那1.5分钟的延迟。

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