automatické vložení datumu do názvu při ukládání Vyřešeno

[dolphino]

Ahoj,

chtěl bych se optat, jak by se mohl automaticky dostat datum do názvu ukládaného dokumentu.
Vytvořil jsem makro, kde po provedení všech výpočtů a seřazení tabulek dojde k automatickému uložení ve formátu PDF. Bohužel se mi vytváří stejný název dokumentu, což je špatně. Chtěl bych, aby se vytvořil dokument např. XXXX_datum.pdf (XXXX = pevně stanovený popis, datum - aktuální datum uložení). Dá se toho docílit?
Nebo před uložením, aby uživatel vypsal manuálně název dokumentu do nějakého okna, které mu bude nabídnuto.

Díky za pomoc

[Reklama]

[Luboš]

Nenapsal jsi, v kterém programu to potřebuješ. Píšeš jen výstupní formát PDF, což je nedostačující informace.

[dolphino]

Omlouvám se. Má se to učinit v Excelu

[ITCrowd]

Ve vbs by to bylo takto:

Kód: Vybrat vše

' vytvoreni nazvu souboru
Mesic = Month(Now())
Den = Day(Now())
If Den < 10 Then Den = "0" & Den
If Mesic < 10 Then Mesic = "0" & Mesic
Namefile = "log_" &  "_" & Year(Now()) & Mesic & Den & ".rar"
'WScript.Echo Namefile


ve vba to snad bude podobné. Třeba tě to navede.

[dolphino]

Díky za pomoc, pohrál jsem si s tím a tak nějak mi to chodí. Zjistil jsem ale, že potřebuji dodat ještě minutu, jaký je zápis pro aktuální minutu? Min mi to nebere. Jde to vůbec?

Díky moc

[cmuch]

možná třeba takto

Kód: Vybrat vše

Dim MyTime

MyTime = time

Namefile = "log_" &  "_" & Year(Now()) & Mesic & Den & Hour(MyTime) & Minute(MyTime) & ".rar"

[dolphino]

Díky moc za pomoc, mám to hotové. :-)