从 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"

从 Excel 打开 PowerPoint

Opening PowerPoint from Excel

excel

powerpoint

vba