Stránka 1 z 1

Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 13:48
od 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

Re: Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 14:12
od 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"

Re: Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 14:25
od 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

Re: Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 14:27
od navstevnik
Lepsi bude, kdyz vlozis svou proceduru, protoze se nemusim strefit do tveho reseni.

Re: Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 14:33
od 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

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

Napsal: 28 led 2010 14:59
od 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"
...

Re: Makro v Excelu - datum v názvu souboru

Napsal: 28 led 2010 15:07
od Transmit
Už vše funguje, díky moc.