Excel表单VBA脚本生成PPT标题页后，PPT无法正常关闭的问题

问题场景 #

通过Excel表单中的VBA脚本在PowerPoint中生成标题页，内容编辑、文件保存功能均正常，但调用PPTM_App.Quit命令时代码报错，PowerPoint演示文稿始终保持打开状态。

修正后的可运行代码 #

Dim PPTM_App As Object
Dim PPTM_File As Object
Set PPTM_App = CreateObject("Powerpoint.Application")
Set PPTM_File = PPTM_App.Presentations.Open(folder_path & uen & ".pptm")

    With PPTM_File.Slides(1)
        .Shapes("Title_Txt").OLEFormat.Object = project_text & ": " & product_text
        .Shapes("Sub_Txt").OLEFormat.Object = purpose_text
        .Shapes("ELN_Txt").OLEFormat.Object = uen
        .Shapes("Date_Txt").OLEFormat.Object = Format(Now, "dd-mmm-yy")
        .Shapes("Conc_Txt").OLEFormat.Object = "Example text."
    End With
    
PPTM_File.Save ' 正常执行保存操作
'PPTM_App.Quit ' 原退出命令无效，文件无法关闭
PPTM_File.Close

Dim BruteForce As String
BruteForce = "TASKKILL /F /IM powerpnt.exe"
Shell BruteForce, vbHid
    
Set PPTM_File = Nothing
Set PPTM_App = Nothing

解决逻辑 #

原常规退出命令失效的原因多为COM对象引用未彻底释放或PowerPoint进程残留，这里采用替代方案：

• 先关闭已打开的演示文稿文件PPTM_File.Close
• 通过系统命令TASKKILL /F /IM powerpnt.exe强制终止所有PowerPoint进程
• 手动释放对象引用，避免内存泄漏

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