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

Snimanje excel fail po datumima i vremenu (nesto kao baza podataka)

[es] :: Office :: Excel :: Snimanje excel fail po datumima i vremenu (nesto kao baza podataka)

[ Pregleda: 1585 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zage
Zoran Nastevski
Makedonija Demir Hisar

Član broj: 56597
Poruke: 148
77.28.180.*

Sajt: idividi.com.mk


+1 Profil

icon Snimanje excel fail po datumima i vremenu (nesto kao baza podataka)20.08.2012. u 15:45 - pre 141 meseci
Pozdrav svima....
Stvar je sledeca.Recimo imam jedan Excel Fajl u kome konstantno upusujem i menjam podatke svakodnevno po nekoliko puta,isti taj fajl koristi mi kao baza podataka.Primer kako da uradim posle obavljenog upisa kada pritisnem na dugme ,,save,, da mi automatski paralelno sacuva podatke u originalnom fajlu(nesto kao normalna stvar ) a ujedno da taj isti fajl snimi pod istim nazivom sa momentalnom datumom i vremenu u sasvim drugi Folder ( Folder gde bi se snimali i sacuvali svi excel fajlovi sa zadatim datumima i vremenima kada je postupak snimanja obavljen...nesto kao bazu podataka za nedaj boze)

Pozdrav
 
Odgovor na temu

pera68
Bačka Palanka

Član broj: 98559
Poruke: 121
*.scansafe.net.



+9 Profil

icon Re: Snimanje excel fail po datumima i vremenu (nesto kao baza podataka)21.08.2012. u 11:28 - pre 141 meseci
Sub izvestaj()
Dim adresa As String
Dim fascikla As String
adresa = "C:\Orders\"
fascikla = Dir(adresa, vbDirectory)
If (fascikla = "") Then MkDir (adresa)
ActiveWorkbook.SaveCopyAs adresa & ActiveWorkbook.Name & " " & Format(Now(), "yyyy.mm.dd_hh.mm") & ".xls"
ActiveWorkbook.Save
End Sub
 
Odgovor na temu

[es] :: Office :: Excel :: Snimanje excel fail po datumima i vremenu (nesto kao baza podataka)

[ Pregleda: 1585 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

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