通过Excel VBA打开现有PowerPoint文件时出错

Question

我使用以下代码打开一个新的PowerPoint演示文稿，但它给出了一个错误，我无法找出解决方案。

strPresPath = "C:\Users\MAHE\Documents\template.ppt"
Set oPPTApp = CreateObject("PowerPoint.Application")
Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)

，错误是

"Method 'open' of object 'Presentation' failed"

此外，如果任何人可以帮助将新的幻灯片添加到PowerPoint中将会有很大的帮助。

Answer 1

我没有在代码中看到问题。但您可以尝试使用对＃34; Microsoft PowerPoint XX.X对象库的引用＆＃34;：

代码就是这样：

{{1}}

Answer 2

除了@ gizlmeier的建议外，试试这个：

strPresPath = "C:\Users\MAHE\Documents\template.ppt"
Set oPPTApp = CreateObject("PowerPoint.Application")

' Verify that the PPT object was created successfully
If oPPTApp is Nothing Then
   MsgBox "Unable to create PowerPoint object"
   Exit Sub ' or function
Else
   Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)
End if

这至少证明PPT对象已经成功创建（或者它已经被创建）。