Ausgabeort PDF Makro
14.07.2021 09:52:50
Christoph
ich habe aus diesem Forum ein wunderbares Makro für das Speichern aller Blätter einer Arbeitsmappe als PDF. Es ist so eingestellt, dass das ausgebene PDF den Dateinamen hat. Nun gibt es leider ein Fehlfunktion. Der ausgegebene PDF File wird nicht in dem Ordner gespeichert, wo die Excel Datei liegt, sondern unter C:\Users\...\Documents. Hat einer eine Idee, wie ich in das Makro schreiben, das Dateiort der Excel Datei = Ausgabeort des PDFs ist?
Sub PDF()
With ThisWorkbook
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=saveLocation, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False)
End With
End Sub
Danke schön