Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Makro za bekap fajla (ime+datum+vreme)

[es] :: Office :: Excel :: Makro za bekap fajla (ime+datum+vreme)

[ Pregleda: 1882 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.adsl.verat.net.



+35 Profil

icon Makro za bekap fajla (ime+datum+vreme)14.03.2018. u 09:09 - pre 73 meseci
Potreban mi je makro koji će se aktivirati prilikom otvaranja fajla, a sačuvaće bekap na određenoj lokaciji sa novim imenom (staro ime + datum i vreme)

Na forumu sam došao do makroa koji će prilikom otvaranja fajla pozivati proceduru (postavlja se u ThisWorkbook)

Code:

Private Sub Workbook_Open()
'pokretanje VBA macro kada otvoriš Workbook
KreirajBekap 'naziv VBA procedure
End Sub


Pokušao sam da kreiram makro za kreiranje i snimanje bekap fajla, ali nisam uspeo (postavio u ThisWorkbook).
Molim za pomoć.

Code:

Sub KreirajBekap()

Dim Folder As String
Dim BekapIme As String

Folder = "D:\ExcelBekap\"
BekapIme = ActiveWorkbook.Name


    ThisWorkbook.SaveAs Folder & BekapIme & Format(Now, "dd-MM-yyyy hh:mm:ss") & ".xlsm"
End Sub

Zvoni, kucanje ne radi ...
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)14.03.2018. u 14:06 - pre 73 meseci
Možeš da probaš da startuješ proceduru direktno (Alt+F8) i postaviš breakpoint - pa proveriš red po red šta se dešava.
Ovde ima dva trivijalna problema
1/ ActiveWorkbook.Name vraća i ekstenziju
Da dobiješ ime bez ekstenzije možeš da koristiš File System Object - fso.GetBaseName(ActiveWorkbook.Name)
Ili jednostavno da odsečeš zadnjih pet karaktera sa Left: Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)

2/ Dvotačka (:) je rezervisan karatkter - npr C: i ne može se koristiti u imenu faja. Možeš da zameniš sa nekim drugim blanko ili - npr:
Code:
Format(Now, "dd-MM-yyyy hh mm ss")


Tako bi to trebalo da radi. Ostaje logičko pitanje
a/ Zašto snimati fajl pre nego što se uradi Save?
b/ Zašto ne koristiti posotjeći automatski backup u Excelu. Doduše na ovaj način čuva se samo jedna backup verzija

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.adsl.verat.net.



+35 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)14.03.2018. u 14:26 - pre 73 meseci
Citat:
Jpeca

a/ Zašto snimati fajl pre nego što se uradi Save?
b/ Zašto ne koristiti posotjeći automatski backup u Excelu. Doduše na ovaj način čuva se samo jedna backup verzija


Potrebna je arhiva u kojoj se može videti šta je kojeg datuma rađeno, pa zbog toga ne može automatski bekap.

Zvoni, kucanje ne radi ...
 
Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.opera-mini.net.



+35 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)15.03.2018. u 08:17 - pre 73 meseci
Hvala @Jpeca.
Uz tvoju pomoć došao do rešenja.

Code:
ThisWorkbook.SaveAs Folder  & Format(Now, "dd-MM-yyyy hh-mm-ss") & BekapIme

Zvoni, kucanje ne radi ...
 
Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.opera-mini.net.



+35 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)15.03.2018. u 08:27 - pre 73 meseci
Sad mi se javio novi problem.

Meni je potrebno da se radi na fajlu IME.XLSM a korišćenjem Save As dobijem bekap fajl i on ostaje otvoren (radi se na bekap fajlu, ne na izvornom)

Kako samo da kreiram bekap fajl ali da se ne otvori, već da nastavim raditi u IME.XLSM.

Zvoni, kucanje ne radi ...
 
Odgovor na temu

Sadun
Zemun

Član broj: 94350
Poruke: 244
194.156.48.*



+14 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)15.03.2018. u 09:03 - pre 73 meseci
Evo detaljno....
Imas na linku primere, samo zameni tvoj string sa novim imenom
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
89.216.49.*

Sajt: www.gowi.rs


+109 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)15.03.2018. u 10:02 - pre 73 meseci
SaveCopyAs umesto SaveAs u tvom primeru. Attachovana izmenjena verzija u prethodnom postu
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 804
*.opera-mini.net.



+35 Profil

icon Re: Makro za bekap fajla (ime+datum+vreme)15.03.2018. u 13:51 - pre 73 meseci
Hvala, to je to!
Zvoni, kucanje ne radi ...
 
Odgovor na temu

[es] :: Office :: Excel :: Makro za bekap fajla (ime+datum+vreme)

[ Pregleda: 1882 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.