< návrat zpět

MS Excel

Téma: Zálohování souboru rss

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

stop Uzamčeno - nelze přidávat nové příspěvky.
icon eLCHa(24.9.2013 11:34)#015409
eLCHa
Ten kód jsem nestudoval, ale proč nepoužíváte možnost
Vždy vytvořit záložní kopiicitovat
icon eLCHa(24.9.2013 11:38)#015410
eLCHa
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
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje