PDF mit Datum speichern
16.07.2022 08:58:39
Ralf
mit dem unten stehenden Code werden zwei Blätter als eine PDF Datei gespeichert.
Die Datei wird ja als Testdatei.pdf abgespeichert. Nun habe ich versucht das vor dem Namen der Datei das Heutige Datum in diesem Format steht dd.mm.yyyy
Bekomem es leider nicht hin. Bekomme immer eine Fehlermeldung.
Wie und wo muss das Format in dem Code eingebaut werden ?
Danke Ralf
Sub pdf()
'Einen dynamischen String-Array deklarieren:
Dim arrBlätter() As String
'Diesen Array zB. auf 2 Elemente festlegen:
ReDim arrBlätter(1 To 2)
arrBlätter(1) = "Test1"
arrBlätter(2) = "Test2"
'Falls eine Vergrößerung zB. auf 3 Elemente notwendig ist,
'ohne dabei die bisherigen Elementinhalte zu verlieren:
ReDim Preserve arrBlätter(1 To 2)
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=ThisWorkbook.Path & "\Testdatei.pdf",&(Datum, "DD_MM_YYYY") _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'Deselektion der 3 Arbeitsblätter:
Sheets("Test1").Select
'End Sub