Stránka 1 z 1

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

Napsal: 17 led 2012 11:48
od 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

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 11:59
od Luboš
Nenapsal jsi, v kterém programu to potřebuješ. Píšeš jen výstupní formát PDF, což je nedostačující informace.

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 12:43
od dolphino
Omlouvám se. Má se to učinit v Excelu

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 13:16
od 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.

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 15:06
od 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

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 21:05
od 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"

Re: automatické vložení datumu do názvu při ukládání

Napsal: 17 led 2012 21:32
od dolphino
Díky moc za pomoc, mám to hotové. :-)