Makro v Excelu - datum v názvu souboru Vyřešeno

[Transmit]

Zdravim,

chtěl bych někoho poprosit o pomoc s vytvořením makra. Na konci každého dne potřebuju uložit/zálohovat pracovní soubor. Nastavit makro, aby se soubor uložil ,není problém. To v podstatě není ani potřeba. Potřeboval bych nastavit makro, které při uložení souboru k názvu souboru připojí aktuální datum, v jakémkoliv tvaru DD-MM-RRRRR nebo RRRR-MM-DD, to je uplně jedno. Vytvoří se tak tím pravidelná každodenní záloha.

Př:
central.xls - původní soubor bez makra
central 28.1.2010.xls - s nastavením makra dnes uloženo
central 29.1.2010.xls - zítřejší záloha
atd

Díky moc za případnou radu

[Reklama]

[navstevnik]

Nazev souboru vcetne aktualniho data:

Kód: Vybrat vše

FileName = "central" & Format(Date, "yyyymmdd") & ".xls"

a pro "zitrejsi":

Kód: Vybrat vše

FileName = "central" & Format(Date + 1, "yyyymmdd") & ".xls"

[Transmit]

Díky za rychlou reakci, ale nějak mi to nejde zprovoznit, můžu tě ještě poprosit aby si mi napsal celý postup, který pak jenom překopíruju do Visual Basicu?

Díky

[navstevnik]

Lepsi bude, kdyz vlozis svou proceduru, protoze se nemusim strefit do tveho reseni.

[Transmit]

Sub denni_zaloha()
'
' denni_zaloha Makro
' Makro zaznamenané 28.1.2010, vondra
'

'
ActiveWorkbook.SaveAs Filename:="X:\central.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

[navstevnik]

Neni jasne , z jakeho souboru delas zalohu, pokud to je zaloha ze souboru "central20100127.xls", pak muzes pouzit:

Kód: Vybrat vše

Sub aa()
Dim FName As String
'nazev stareho souboru vcetne cesty
FName = Application.ActiveWorkbook.FullName
' odstranit stare datum a .xls
FName = Left(FName, Len(FName) - 12)
'novy nazev vcetne cesty
FName = FName & Format(Date, "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs FileName:=FName
End Sub

Pokud to je nove vytoreny soubor, pak:

Kód: Vybrat vše

...
ActiveWorkbook.SaveAs Filename:="X:\central" & Format(Date, "yyyymmdd") & ".xls"
...

[Transmit]

Už vše funguje, díky moc.