从Excel打开PowerPoint

Question

我正在尝试使用宏从Excel文件中打开PowerPoint演示文稿。我使用以下代码：

Private Sub testButton_Click()
    Dim objPPT                               As Object
    Set objPPT = CreateObject("PowerPoint.application")
    objPPT.Visible = True
    objPPT.Activate
    objPPT.Presentations.Open (CStr(ActiveWorkbook.Path) + "\DailyHealthCheck9_24_15.ppt")
End Sub

但是我收到以下运行时错误：

PowerPoint启动但不会打开该文件。我检查了文件路径，这是正确的。

任何人都可以解释为什么会这样吗？

可能是PowerPoint文件中的某种类型的保护。

Answer 1

您的路径或文件名必须不正确。文件肯定是ppt。它不是pptx吗？

将打开的行更改为

objPPT.Presentations.Open ActiveWorkbook.Path & "\DailyHealthCheck9_24_15.pptx"