Unable to open PowerPoint File using VBA

Question

I like to open a PowerPoint file from Excel. I have tried it several times but it does not work.

The Problem sounds similar to these:

The only difference is, I get another error code:

'Laufzeitfehler '-2147024894 (80070002)': Die Methode 'Open' für das Objekt 'Presentations' ist fehlgeschlagen.

I checked that the Microsoft PowerPoint 16.0 Object Library ist activated. And i checked the filepath several times.

Does anyone have an idea what the mistake can be?

Sub sub_powerpoint_test()
Dim ObjPPT As PowerPoint.Application
Dim ObjPresentation As PowerPoint.Presentation
Dim str_FileName_PPTX As String

Set ObjPPT = CreateObject("PowerPoint.Application")
ObjPPT.Visible = msoCTrue


'Get PPT Filename
If Len(Dir(ThisWorkbook.Path & "\*.pptx")) = 0 Then
   MsgBox "PPTX file does NOT exist in this folder."
Else
     str_FileName_PPTX = ThisWorkbook.Path & Dir(ThisWorkbook.Path & "\*.pptx")
     Debug.Print str_FileName_PPTX
 End If


Set ObjPresentation = ObjPPT.Presentations.Open(str_FileName_PPTX, Untitled:=msoTrue)

End Sub

The error occures in the Open line at the end.

Tobi A. · Accepted Answer · 2017-11-18 12:28:38Z

2

I found the solution. The Problem was a missing "\" in the path.

The corrected code is:

If Len(Dir(ThisWorkbook.Path & "\*.pptx")) = 0 Then
   MsgBox "PPTX file does NOT exist in this folder."
Else
    str_FileName_PPTX = ThisWorkbook.Path & "\" & Dir(ThisWorkbook.Path & "\*.pptx")
    Debug.Print str_FileName_PPTX
End If

answered Nov 18, 2017 at 12:28

Tobi A.

316 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Unable to open PowerPoint File using VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related