zukünftigen Dateinamen ermitteln
13.07.2023 11:59:09
LittleBob
Mit einer Schaltfläche und einem Makro wird eine Exceldatei als *.pdf gespeichert und im Dateinamen mit einem Zeitstempel versehen.
Der Dateiname enthält dazu noch 2 variablen Angaben (Vor-/Zuname) aus einer Tabelle.
Sub aktivesBlattToPdf()
'ChDir Range("c:\temp")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Format(Date, "YYYYMMDD") & _
"-" & _
Format(Time, "HHMM") & _
"_" & _
Range("Tabelle1!A1") & _
"_" & _
Range("Tabelle1!B1") & _
".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Das funktioniert soweit auch alles hervorragend.
Mein Problem ist nur ein Auditor, welcher im *pdf auch den Dateinamen der Datei erkennen möchte.
Alles, was ich erreiche ist jedoch, dass der Name der ursprünglichen Excelvorlage angezeigt wird.
Ich frage mich, ob es möglich ist den zukünftigen Dateinamen im Vorfeld zu ermitteln, und in der Fußzeile auszugeben.
Das Ganze nach Möglichkeit nicht für den Anwender manipulierbar. ;-)
Zumindest ist das die Vorstellung des Auditors. Ich wäre jedoch zufrieden, wenn ich überhaupt eine Lösung hätte.
Hat vielleicht jemand eine Idee?
Gruß LittleBob