Jak uložit soubor s datem a časem v aplikaci Excel?

Když někdy pracujeme na sešitu, musíme při ukládání souboru přidat aktuální datum a čas. Možná můžete zadat datum a čas za názvem souboru do dialogového okna Uložit jako, ale zde vám mohu představit snadný trik, jak s touto prací automaticky zacházet.

Uložte soubor aplikace Excel s datem a časem pomocí kódu VBA

Uložte soubor aplikace Excel s datem a časem pomocí kódu VBA

Kromě ručního zadávání data a času vám následující kód VBA pomůže automaticky přidat aktuální datum a čas do názvu souboru. Proveďte prosím následující kroky:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2. klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Automatické přidání data a času k názvu souboru

Sub filesave()
'Update 20141111
ActiveWorkbook.SaveAs ("C:\Users\dt\Desktop\my information\nov-kte-data " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, aktuální datum a čas byl přidán za název vašeho aktivního sešitu, viz screenshot:

Pozor: Ve výše uvedeném kódu musíte změnit cestu a název souboru podle svých potřeb.

Související články:

Jak uložit soubor Excel s hodnotou buňky?

Jak zobrazit cestu k souboru v záhlaví nebo panelu nástrojů v aplikaci Excel?