Application.GetSaveAsFilename
24.02.2015 17:57:13
Andi
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & "SV-" & SVTyp & "_" & Blatt.Name & ".pdf", "PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
Sheets(Blatt.Name).ExportAsFixedFormat Type:=xlTypePDF, Filename:=vntFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Der Befehl ist wirklich klasse. Jetzt möchte ich aber sehr viele Blätter als PDF speichern.
Bei jeden Blatt kommt der Speichern Dialog den ich bestätigen muß.
Kann man das speichern automatisieren ? bzw. bzw speichern ohne Dialogfenster ?