|
Hej zusammen,
ich hoffe ihr könnt mir mit diesem kleinen Problem helfen.
Ich möchte gerne eine Powerpointdatei über Excel öffnen - dies klappt soweit auch ganz gut.
Nun versuche ich einen variablen Pfad und Dateinamen zu implementieren. Leider spuckt excel ab dem Moment des Öffnens ein Run-Time Error (Method Open of object Presentations failed) durch.
Folgender Code steht da:
Sub PowerPoint()
Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim oPPTShape As PowerPoint.Shape
Dim PPslide As PowerPoint.Slide
Dim PfadQuelle As String
Dim Pfadneu As String
Datei = Range("H10").Value
DateiPDF = Range("H11").Value
PfadQuelle = Range("H32").Value
Pfadneu = Range("H12").Value
Quelle = PfadQuelle & Datei
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
'opening an existing presentation
'Change the path and presentation name
Set oPPTFile = oPPTApp.Presentations.Open(Filename:=PfadQuelle & Datei)
Danke euch :)
|