从Excel中打开PowerPoint

我正尝试使用macros从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启动，但不会打开文件。 我检查了文件path，它是正确的。

任何人都可以解释为什么这是发生？

也许它在PowerPoint文件上的某种types的保护。

Answer 1

您的path或文件名必须错误。 该文件是肯定的PPT。 这不是一个pptx？

将打开的行更改为

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