PDF speichern
23.12.2022 10:48:46
Denis
ich bin auf der suche nach einer Lösung für folgendes Problem:
Per Vba möchte ich ein Arbeitsblatt am gleichen Ort wie die Ursprungsdatei speichern, jedoch im pdf-Format. Hier war mein Gedanke eine Abfrage zum Speicher-Ort (Speichern-Fenster) aufzurufen. Nun wäre es aber schon recht hilfreich wenn in dem Fenster direkt der Ordner angezeigt wird, wo die Ursprungsdatei liegt.
Gibt es hier zu einen Befehl?
Mein aktueller Ansatz sieht so aus:
Sub PDF_Speichern_Unter_Prüf()
Dim pdfDateiName As String
Dim pdfname As Variant
Application.ScreenUpdating = False
pdfDateiName = ActiveSheet.Range("B3") & Range("A1") & ".pdf"
pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
If pdfname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
Exit Sub
End If
End Sub