Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Macro abspeichern + Datum

Mit Macro abspeichern + Datum
19.01.2021 14:15:35
Alex
Hallo ich habe folgenden Code erstellt:
Ich hätte gern das die PDF mit User Namen und Datum als Titel in dem Ordner abgelegt werden,
ist das irgendwie machbar ? Danke für die Hilfe

Sub PDFSave()
' PDFSave Macro
Range("A3:O136").Select
ActiveWindow.SmallScroll Down:=-66
ChDir "G:\9930 PRODUCTION\public\Ablage PDF Reports 2021"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\9930 PRODUCTION\public\Ablage PDF Reports 2021\OEE_Report_XXXX.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Macro abspeichern + Datum
19.01.2021 14:24:18
Klaus
Hi Alex,
das geht so:
Dim MyName As String
MyName = Format(Date, "YYYY.MM.DD.") & "_" & Environ("Username")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\9930 PRODUCTION\public\Ablage PDF Reports 2021\" & MyName & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

AW: Mit Macro abspeichern + Datum
19.01.2021 14:32:07
Alex
Funktioniert perfekt, vielen Dank Klaus , Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige