Kód: Vybrat vše
Sub ZalohovaniSouboru(Optional nic = "")
'POPIS - predpoklada se, ze soubor je pred zavrenim ulozen
'tento podprogram volame v udalosti Workbook_BeforeClose
'vytvori do aktualni slozky kopii tohoto sesitu s nazvem
'doplnenym datumem a casem
'drive ulozeny zalozni soubor odstrani, pokud existuje
'cesta a nazev souboru
nazev0 = ThisWorkbook.Name
uplnyNazev0 = ThisWorkbook.FullName
cesta0 = Left(uplnyNazev0, Len(uplnyNazev0) - Len(nazev0))
'oddelime z nazvu souboru priponu
pozicePripony = InStr(LCase(nazev0), ".xls")
delkaNazvu = Len(nazev0)
pocetZnakuPripony = delkaNazvu - pozicePripony + 1
pripona = Right(nazev0, pocetZnakuPripony)
'aktualni datum a cas
datum = Format(Date, "yyyy-mm-dd") & "_" & Format(Time, "hh-mm")
'vytvori nazev zalozniho soubor
nazev = Left(nazev0, delkaNazvu - pocetZnakuPripony) & "_" & datum & pripona
'vytvoreni kopie souboru s novym nazvem
ActiveWorkbook.SaveCopyAs cesta0 & nazev
End Sub
potřeboval bych poradit,jak zapsat název zálohy na list (kód by měl být v tomto makru) a navíc nevím jak tuto zálohu obnovit na původní soubor se kterým pracuji (soubor nese název "seznam").
Tento kód není můj,ale vyhledal jsem ho na internetu jen jsem si ho trochu poupravil-původní makro vytvořilo nový soubor (zálohu) a starší to smazalo.
Změnil jsem si i cestu pro ukládání zálohy,ale vůbec netuším jak zapisovat zálohy na list.
Mohl by mi prosím někdo poradit? Předem děkuji za rady.