从 Excel 打开 PowerPoint答案

【问题标题】：Opening PowerPoint from Excel从 Excel 打开 PowerPoint
【发布时间】：2015-12-23 08:23:49
【问题描述】：

我正在尝试使用宏从 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 文件有某种类型的保护。

【问题讨论】：

您只是想打开文件还是希望能够使用 VBA 代码中的文件？
我在 PowerPoint 中有两个 Excel 图表，我想在宏运行时使用 Excel 中的数据进行更新。
好的，我只是在检查，因为如果您只是想打开 powerpoint 文件，还有另一种方法。
您的路径或文件名一定不正确。文件肯定是ppt。不是pptx吗？
哈，就是这样。谢谢！如果您发布解决方案，我会接受。

标签： excel vba powerpoint

【解决方案1】：

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

将开行改为

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

【讨论】：