SaveAs PDF - Laufzeitfehler: ^0 auf ^1
27.09.2022 12:07:48
Patrick
ich habe einen Fehler beim Speichern eine PPT-Datei als PDF aus einem XLS-Script heraus auf dem Sharepoint.
Hier erst einmal der Code und der Fehler selbst ist unten beschrieben und ich hoffe, irgendwer kennt diesen "^0 auf ^1"-Laufzeitfehler
' PPT-Datei-Operationen
Const Satzzeichen As String = ".,;:!?()/`´'&»-«"""
' Speicher-Pfade zu den PPT- bzw. PDF-Ordnern
ppt_path_ordner = Application.ActiveWorkbook.Path & Application.PathSeparator & "PPT-Angebote\"
ppt_pdf_ordner = Application.ActiveWorkbook.Path & Application.PathSeparator & "Schaltempfehlungen\"
ppt_master_order = Application.ActiveWorkbook.Path & Application.PathSeparator
' PPT öffnen
Set pptApp = CreateObject("PowerPoint.Application")
'Set pptP = pptApp.Presentations.Open(Filename:=ppt_master_order & "Schaltempfehlung_Master.pptx", ReadOnly:=True)
'Diese Zeile oben drüber deaktiviert, da ich vermutete, dass ReadOnly beim PDF Probleme macht...
Set pptP = pptApp.Presentations.Open(Filename:=ppt_master_order & "Schaltempfehlung_Master.pptx")
pptApp.Visible = msoTrue
pptApp.Activate
' Speichername festlegen
ppt_filename = "HDW__" & TBx_Ticket & "_" & TBx_Aufragsname
' hier kommt nun ein kleines Replace-Script, damit der Dateinamen keine Sonderzeichen enthalten kann.
' Nicht weiter Relevant, daher hier rausgelöscht
' Entwickle die Dateinmane mit den richtigen Datei-Endungen
ppt_pdffilename = ppt_pdf_ordner & ppt_filename & ".pdf"
ppt_filename = ppt_path_ordner & ppt_filename & ".pptx"
pptP.SaveAs Filename:=ppt_filename
' Hier wird jetzt die PPT-Slide zusammengesetzt
' Da das alles wie gewünscht funktioniert, habe ich das hier nun auch rausgelöscht, da nicht relevant
' XLS-Workbook "Angebotsspeicher" speichern & schließen
ActiveWorkbook.Close savechanges:=True
'PPT-Präsentation als PDF speichern und
With pptApp.ActivePresentation
.SaveAs Filename:=ppt_pdffilename, FileFormat:=32 'Ich kann auf dem Sharepoint Excel-Dateien aufrufen, speichern usw. Die Powerpoint-Datei selbst kann ich ebenfalls auf den Sharepoint im richtigen Ordner speichern.
Nur wenn ich die PPT als PDF abspeichern möchte, dann tritt der Laufzeitfehler auf:
Laufzeitfehler '-2147467259 (80004005)':
Presentation.SaveAs : PowerPoint kann ^0 auf ^1 nicht speichern.
Ich verstehe den Fehler nicht und weiß nicht, was ich falsch mache (oder richtig machen sollte).
Auf Laufwerk D: funktioniert das PDF und auf dem Sharepoint wieder nicht (aber nur das PDF).
Kann mir irgendwer helfen?
Ich verzweifle hier bald... Stund um Stund zieht ins Land und ich werde nicht fertig...
Danke euch schon, die sich die Zeit für mich und meinen ^0 auf ^1 Fehler zu finden...
Patrick