Nevím jestli jsem pochopil správně
vložte si do modulu
Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
End Sub
Buňku kam to chcete si upravte podle potřeby.
toto platí pro soubor ve kterém pracujete
pokud potřebujete datum z jiného souboru muselo by se jinakcitovat
vložte si do modulu
Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
End Sub
Buňku kam to chcete si upravte podle potřeby.
toto platí pro soubor ve kterém pracujete
pokud potřebujete datum z jiného souboru muselo by se jinakcitovat