Als PDF speichern mit Auswahl
24.07.2014 08:22:37
Ben
Ich habe zurzeit folgenden Code, der mir die Exceldatei als PDF abspeichert, allerdings ist dadurch auch der Speicherort direkt bestimmt:
ChDir "D:\Users\csd90075\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Users\csd90075\Desktop\Spezifikation_Stickstofftafel_rev06.pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Ich habe vorher versucht mit folgendem Code das ganze zu realisieren, allerdings habe ich dabei das Problem, dass die aktuelle Exceldatei dann als PDF offen ist, allerdings dann komischerweise nicht mit Adobe Reader, sondern weiterhin in Excel (der Name der Exceldatei ganz oben ändert sich von Beispiel.xlsm zu Beispiel_12314.PDF). Ich möchte allerdings nur, dass die Exceldatei offen bleibt und die davon erzeugte PDF abgespeichert wird, ohne zu öffnen.
Hier der Code:
Dim SaveAsDlg As FileDialog
Set SaveAsDlg = Application.FileDialog(msoFileDialogSaveAs)
With SaveAsDlg
.InitialView = msoFileDialogViewList
.InitialFileName = "G:\Bestellspezifikation_" & Cells(4, 2)
=Vorschlag für Dialog"
.FilterIndex = 25
.Show
.Execute
End With
Besten Gruß und schonmal vielen Dank,
Ben Dover