• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Zálohování souboru

Zaslal/a Richard99 24.9.2013 11:27

Dobrý den,

mám makro, které uloží soubor a zároveň jeho kopii na serveru ( disk H ). Potřeboval bych zajistit, aby k přepsání souboru na serveru došlo pouze v případě, že aktuální sešit je novější než soubor na serveru. V opačném případě soubor neukládat a vypsat hlášku "Na serveru je novější verze".

Sub abk()
If Sheets("Setup").Range("B12") Then Exit Sub
Application.ScreenUpdating = False
Awb = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
On Error Resume Next
MkDir "H:\Jupiter"
On Error GoTo 0
On Error GoTo chyba
ActiveWorkbook.SaveAs Filename:="H:\Jupiter\" & ActiveWorkbook.Name, _
FileFormat:=xlExcel12, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=Awb, _
FileFormat:=xlExcel12, CreateBackup:=False
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
chyba:
MsgBox "Záloha nebyla provedena"
Application.DisplayAlerts = True
Application.StatusBar = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Uzamčeno - nelze přidávat nové příspěvky.

---

eLCHa(24.9.2013 11:34)#015409

Ten kód jsem nestudoval, ale proč nepoužíváte možnost
Vždy vytvořit záložní kopiicitovat

eLCHa(24.9.2013 11:38)#015410

Jinak, když tak rychle koukám do Nápovědy
tak fce
FileDateTime

Returns a Variant (Date) that indicates the date and time when a file was created or last modified.citovat

Richard99(24.9.2013 11:53)#015411

Dík,

Vždy vytvořit záložní kopii nepoužívám, protože kopii potřebuji uložit na server. FileDateTime je perfektní.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse