< návrat zpět

MS Excel


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

Zaslal/a 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 #015409
eLCHa
Ten kód jsem nestudoval, ale proč nepoužíváte možnost
Vždy vytvořit záložní kopiicitovat
icon #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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09