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