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

automatsko save-ovanje file na dva razlicita mesta sa i bez formula

[es] :: Office :: Excel :: automatsko save-ovanje file na dva razlicita mesta sa i bez formula

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Laki024

Član broj: 161293
Poruke: 585
*.dynamic.isp.telekom.rs.



+64 Profil

icon automatsko save-ovanje file na dva razlicita mesta sa i bez formula11.06.2013. u 09:05 - pre 131 meseci
Da li ima neko neku ideju kako da odradim da mi excell automatski uradi save na dva razlicita mesta.

Imam excell file ( oko 150MB file ) , zbog ubacene funkcije automatskog bojenja ( conditional formating ) celija na osnovu rezultata, file je ovako velik, za pracenje rezultata mi bojenje puno znaci, dok za upload u SQL ovo mi jako odmaze, jer je prevelik file za upload.

Zanima kako mogu da ga save-ujem tako da automatski odradi save na 2 razlicita mesta sa bojenjem ( conditional formating ) i bez bojenja celijaa, ( bez conditional formating ) kako bi se file smanjio na 10MB i samim tim bio optimalan za uplaud u SQL

[Ovu poruku je menjao Laki024 dana 11.06.2013. u 10:32 GMT+1]
 
Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.



+166 Profil

icon Re: automatsko save-ovanje file na dva razlicita mesta sa i bez formula11.06.2013. u 12:03 - pre 131 meseci
Ovo ide u Workbook modul. Kada klikneš na Save, sačuvaće postojeći dokument pod njegovim imenom i sačuvaće dokument bez kondicionalnog formatiranja pod imenom "BEZ KOND FORMATIRANJA.xlsm" u istom folderu.

Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strImeWorkbooka As String

Application.EnableEvents = False
ThisWorkbook.Saved = True
ThisWorkbook.Save


Dim i As Long
For i = 1 To Worksheets.Count
    Worksheets(i).Cells.FormatConditions.Delete
Next i

strImeWorkbooka = ThisWorkbook.FullName
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & "BEZ KOND FORMATIRANJA.xlsm"

Workbooks.Open (strImeWorkbooka)

Application.EnableEvents = True
ThisWorkbook.Close

End Sub
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: automatsko save-ovanje file na dva razlicita mesta sa i bez formula

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

Postavi temu Odgovori

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