Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Speichern Pdf


Betrifft: Speichern Pdf von: Alexander Sauerwein
Geschrieben am: 01.03.2019 07:41:51

Hallo liebes Forum,
ich wollte über einen CommandButton einen Speicher befehl abgeben.
Der sollte so aussehen, dass ich meine gesamte Arbeitsmappe mit dem aktuellen Datum fortlaufend als pdf Datei abspeichern kann als Ablage. Klappt auch mit dem speichern so weit, nur bekomme ich es nicht hin das er immer hinter dem Dateinamen das datum automatisch machen.

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
D:/'Pfad
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas_
:=False, OpenAfterPublish:=True
ThisWorkbook.SaveAs sPfad & Format(Date, "DDMMYYYY")

Vielleicht hat einer von euch ne Lösung Danke schon mal

  

Betrifft: AW: Speichern Pdf von: Marco
Geschrieben am: 01.03.2019 07:55:25

Hallo,
so mache ich das. Du müsstest allerdings natürlich noch die Pfade anpassen.

VG
Marco

verzeichnis2 = Environ("TEMP") & "\"
ws2 = ActiveSheet.name
exportpdffile = verzeichnis2 & ws2 & Date & ".pdf"
' Export PDF
ActiveSheet.ExportAsFixedFormat xlTypePDF, exportpdffile, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False


  

Betrifft: AW: Speichern Pdf von: Alexander Sauerwein
Geschrieben am: 01.03.2019 08:10:31

Bekomme eine Fehlermeldung ab dem teil:

ActiveSheet.ExportAsFixedFormat xlTypePDF, exportpdffile, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False


  

Betrifft: AW: Speichern Pdf von: Werner
Geschrieben am: 01.03.2019 08:43:00

Hallo Alexander,

vermute mal da fehlt der Slash

ThisWorkbook.SaveAs sPfad & "/" & Format(Date, "DDMMYYYY")
Gruß Werner


  

Betrifft: AW: Speichern Pdf von: Alexander Sauerwein
Geschrieben am: 01.03.2019 09:21:26

Genau daran hat es gelegen vielen vielen danke.


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 01.03.2019 09:23:36




  

Betrifft: AW: Speichern Pdf von: Marco
Geschrieben am: 01.03.2019 12:25:32

ActiveSheet.ExportAsFixedFormat xlTypePDF, exportpdffile, Quality:=xlQualityStandard,IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False
muss natürlich in einer Zeile stehen, sorry


  

Betrifft: AW: Speichern Pdf von: Akatosh
Geschrieben am: 04.03.2019 16:42:39

Sheets(Array("Front", "Mitte", "Rückseite")).Select

ChDir "C:\Ordner\Unterordner"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Ordner\Unterordner\Dashboard_." & Format(Date, "dd.mm.yyyy") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True


Beiträge aus dem Excel-Forum zum Thema "Speichern Pdf"