Ошибка при открытии существующего файла PowerPoint через Excel VBA

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

Я не вижу проблемы с кодом. Но вы можете попробовать использовать ссылку на «Microsoft PowerPoint XX.X Библиотека объектов»:

код будет, как это вместо:

Dim oPPTApp As New PowerPoint.Application 
Dim ppPres As PowerPoint.Presentation 

Set oPPTFile = oPPTApp.Presentations.Open(strPresPath) 

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 был создан успешно (или его не было).