avtomatsko shranjevanje

Pomoč pri izdelavi makrov
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

avtomatsko shranjevanje

Odgovor Napisal/-a rick »

pozdravljeni,

rad bi napisal kodo, da mi obstoječi zvezek, ki se imenuje "test" shrani kot,
"test1" v mapi "datoteke" in prepiše obstoječi zvezek, ki se že imenuje "test1". To naj bi se ponavljalo
vedno ob zapiranju zvezka (before close). Za pomoč se najlepše zahvaljujem...

lp Rick
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

Pozdravljeni,

V dogodku BeforeClose uporabite ukaz SaveCopyAs, torej 'ShraniKopijoKot', kot je to prikazano v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

hvala, mi že deluje....;)
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

pozdravljeni,

javljam se še enkrat z vprašanjem in sicer:
kako bi shranil zvezek brez makrov?
moja zdajšnja koda je:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:="\\DNEVNA EVIDENCA\" & imedatoteke & "test1.xlsm"
End Sub

za odgovor se najlepše zahvaljujem.

lp Rick
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

Kako brez makrov? brez makrov shranite datoteko pač preko menijske opcije 'Shrani' oz. 'Shrani kot'...
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

Kako brez makrov? brez makrov shranite datoteko pač preko menijske opcije 'Shrani' oz. 'Shrani kot'...
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

pozdravljen in hvala,
...ja, datoteko test1.xlsm, če je možno, da bi mi jo shranilo, brez da ta vsebuje makre....
kajti, če to shranjeno datoteko ( test1.xlsm) ponovno odprem in kasneje zaprem bo prikazana napaka( saj mi kasneje prikaže kot napako dogodku before close ),
kar je tudi logično...
torej lahko shranem in prepišem datoteko bbrez makrov?

lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

Morate jo shraniti kot navadno Excelovo datoteko, torej kot XLSX in ne XLSM... Ali pa se v makru samem vprašate - v kolikor je to datoteka Test1, potem makra ne izvedi...
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

hmmm....
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

hmmm....
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

Vi ste verjetno samo spremenilo končnico... s čimer seveda niste naredili ničesar... Vi morate datoteko tudi posneti kot XSLX, kar pomeni, da ne morete uporabiti SaveCopyAs, temveč SaveAs in tam določiti format datoteke
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

pozdravljeni,

u redu, to sem razumel, toda kako naj napišem, da se mi shrane brez vprašanj, torej,
ali želim datoteko prepisati...
za odgovor se najlepše zahvaljujem...

lp Rick
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

O tem smo v forumu že kar velikokrat govorili - poiščite tematike s ključno besedo displayalerts.

V določenem trenutku torej lahko prepoveste izpis opomb:

Koda: Izberi vse

Application.DisplayAlerts = false
vendar pa jih morate potem vsekakor vključiti nazaj:

Koda: Izberi vse

Application.DisplayAlerts = true
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a rick »

hvala Matjaž,
...imel bi še samo eno željo in sicer, kako bi poleg imena shranjene datoteke ( time, date) določil še ime trenutnega lista...
se pravi, da bi mi shranilo pod activesheet, date, time...
sedaj imam takole: ActiveWorkbook.SaveAs Filename:="\EVIDENCA_VARNOSTNE_KOPIJE\" & Format(Now, " mm-dd-yyyy-hh-mm-ss") & ".xlsm"

za odgovor se najlepše zahvaljujem

lp Rick
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: avtomatsko shranjevanje

Odgovor Napisal/-a admin »

:)... pač po enakem kopitu, kot ste zapisali sedaj:

Koda: Izberi vse

ActiveWorkbook.SaveAs Filename:="\EVIDENCA_VARNOSTNE_KOPIJE\" & activesheet.name & Format(Now, " mm-dd-yyyy-hh-mm-ss") & ".xlsm"
Je pa vprašanje ali je to smiselno, saj je odvisno od tega, na katerem listu stojite, ko se omenjena VBA koda izvede...
lp,
Matjaž Prtenjak
Administrator
Odgovori