Sub ulozit() Cil = "D:\Lenka\Dokumenty\záloha" On Error Resume Next MkDir Cil ActiveWorkbook.SaveCopyAs Filename:=Cil & _ "\" & "Záloha_" & (Format(Now, "d.m.yyyy")) & ".xls" ActiveWorkbook.Save MsgBox "Súbor bol úspešne uložený", vbInformation, "Uložené" End Sub
Sub uložit() Cil = "D:\Lenka\Dokumenty\záloha" On Error Resume Next MkDir Cil ActiveDocument.SaveCopyAs FileName:=Cil & "\" & ActiveDocument.Name & "_zaloha_" & (Format(Now, "ddmmyyyy-hhmm")) & ".doc" ActiveDocument.Save MsgBox "Súbor bol úspešne uložený", vbInformation, "Uložené" End Sub
Makro-záložná kópia-word - ešte NEVYRIEŠENÉ