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 möchte aber, dass der Benutzer den Speicherort frei wählen kann, also per Dialogfenster. 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
Der Name soll weiterhin aus dem Befehl gezogen werden.Besten Gruß und schonmal vielen Dank,
Ben Dover