通过Excel VBA打开现有PowerPoint文件时出错

Sub OpenPowerPointFile()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim filePath As String
    
    ' 设置文件路径
    filePath = "C:\Path\to\your\File.pptx"
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    
    ' 打开PowerPoint文件
    Set pptPres = pptApp.Presentations.Open(filePath)
    
    ' 可以在此处执行其他操作，如读取幻灯片内容、修改幻灯片等
    
    ' 关闭PowerPoint文件
    pptPres.Close
    
    ' 退出PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象变量
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub