avtomatsko shranjevanje
avtomatsko shranjevanje
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
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
Re: avtomatsko shranjevanje
Pozdravljeni,
V dogodku BeforeClose uporabite ukaz SaveCopyAs, torej 'ShraniKopijoKot', kot je to prikazano v tejle tematiki.
V dogodku BeforeClose uporabite ukaz SaveCopyAs, torej 'ShraniKopijoKot', kot je to prikazano v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
hvala, mi že deluje....
Re: avtomatsko shranjevanje
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
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
Re: avtomatsko shranjevanje
Kako brez makrov? brez makrov shranite datoteko pač preko menijske opcije 'Shrani' oz. 'Shrani kot'...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
Kako brez makrov? brez makrov shranite datoteko pač preko menijske opcije 'Shrani' oz. 'Shrani kot'...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
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
...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
Re: avtomatsko shranjevanje
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
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
hmmm....
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
Re: avtomatsko shranjevanje
hmmm....
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
lahko sicer shranim kot navadno excelovo datoteko, toda makri notri še vedno ostanejo in tudi napako prikaže kot prej...
Re: avtomatsko shranjevanje
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
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
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
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
Re: avtomatsko shranjevanje
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:
vendar pa jih morate potem vsekakor vključiti nazaj:
V določenem trenutku torej lahko prepoveste izpis opomb:
Koda: Izberi vse
Application.DisplayAlerts = false
Koda: Izberi vse
Application.DisplayAlerts = true
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: avtomatsko shranjevanje
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
...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
Re: avtomatsko shranjevanje
... pač po enakem kopitu, kot ste zapisali sedaj:
Je pa vprašanje ali je to smiselno, saj je odvisno od tega, na katerem listu stojite, ko se omenjena VBA koda izvede...
Koda: Izberi vse
ActiveWorkbook.SaveAs Filename:="\EVIDENCA_VARNOSTNE_KOPIJE\" & activesheet.name & Format(Now, " mm-dd-yyyy-hh-mm-ss") & ".xlsm"
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator