Stránka 1 z 1

zápis názvu zálohy do listu a její zpětné obnovení

Napsal: 22 čer 2014 14:46
od crgo77
Zdravím všechny,prosím o radu s makrem který mi vytváří zálohu souboru. Používám k tomu makro viz kód:

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.

Re: zápis názvu zálohy do listu a její zpětné obnovení

Napsal: 15 črc 2014 13:09
od guest
a) Existuje nejen vlastnost FullName, ale i Path.
b) Pro získání přípony jsou i lepší cesty (FSO model, Split a poslední člen pole, ...), ale budiž.
c) Zapis o provedení zálohy uděláte obyčejným přiřazením (zde zjednodušený zápis): Cells(1,1) = Hodnota, resp. Range("A1") = Hodnota. Jenže tuším, co bude následovat - jak zjistit poslední prázdnou buňku...

Re: zápis názvu zálohy do listu a její zpětné obnovení

Napsal: 16 črc 2014 21:56
od crgo77
Je mi líto,ale bohužel jsem nepochopil co je tím myšleno.
Jak jsem již napsal,toto makro jsem našel na internetua vyhovuje mým představám,jen jsem přemýšlel,že bych do zvláštního listu zapisoval názvy jednotlivých záloh a v případě že by bylo potřeba bych tuto zálohu vyvolal zpět - zkopíroval bych a přejmenoval na původní soubor ( nese název seznam.xls).
Bohužel jsem toto maktro vůbec nepochopil a netuším jak se v tom vyznat.Proto jsem poprosil o radu jestli by se tady nenašel někdo,kdo by se v tom vyznal a alespoň poradil jak to řešit.
Přesto děkuji za snahu a radu