[ konislav @ 18.09.2006. 21:17 ] @


Pitanje glasi :

Kako bi glasio macro koji bi automatski ( startovanjem macro-a ) vrsio snimanje dokumenta
pod nazivom ( imenom ) koje je u datoj celiji .
Primer :
startujem macro , macro startuje SAVE AS i u FILE NAME ubacuje naziv iz celije B5 ili bilo koje druge koju ja definisem .
[ timmy @ 19.09.2006. 07:39 ] @
Probaj nesto nalik sledecem:

txtIme = "c:\...\" & Range("B5") & ".xls"

ActiveWorkbook.SaveAs Filename:= _
txtIme, FileFormat:= xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, reateBackup:=False

Pozdrav
[ Jpeca @ 19.09.2006. 07:40 ] @
U osnovnoj verziji ovako:
Code:

Sub MySave()
Dim unos As String
 unos = Sheets(1).Range("B5").Text
 ActiveWorkbook.SaveAs Filename:=unos
End Sub


Na taj način se snima se aktivna Excel radna sveska pod imenom koje je upisano u ćeliju B5 na prvom listu u fasciklu My Document. Naravno dodavanjem putanje promenljivoj unos može se promeniti fascikla u kojoj se snima dokument.

Ako već postoji dokument pod tim imenom ispisaće se upozorenje. Ukoliko želiš da izbegneš upozorenje stavi na početku
Code:

Application.DisplayAlerts = False

Ne zaboravi na kraju da vratiš
Code:

Application.DisplayAlerts = True
[ konislav @ 20.09.2006. 00:16 ] @

Hvala na odgovorima , zavrsicu posao na malo drugaciji nacin , ali o tome kad ga zavrsim .
[ Buck @ 20.03.2008. 12:32 ] @
Kako da iz svoje VB aplikacije nakon goreopisane Save As metode Excel unloudujem iz memorije!?
Probao sam sa: xlApp.Quit ali ne vredi, stalno ga vidim u Task Manageru.
Unapred hvala!
[ Jpeca @ 20.03.2008. 17:50 ] @
U principu trebalo bi Application.Quit da zatvori Excel. Pogledaj ovde http://www.dbforums.com/archive/index.php/t-973449.html - na dnu stanice.


[ Buck @ 21.03.2008. 22:35 ] @
Resenje koje se tamo sugerira podrazumeva da zapravo promenim ogromne blokove rutina u svojoj aplikaciji, konkretno tamo gde je stojalo WITH, da to izbacim i zamenim sa odgovarajucom referencom.
Sugerirano je i da setujem .CutCopyMode = False, sto je i logicno jer tokom pravljenja makroa covek moze da zaboravi da je negde nesto ostalo selektovano...
Naravno sve to treba uraditi i posle se pomoliti dali ce se Excel spustiti na xlapp.quit komandu...
Trenutak istine se blizi pa cu javiti ishode...
[ Buck @ 22.03.2008. 01:35 ] @
Citat:
Jpeca: U principu trebalo bi Application.Quit da zatvori Excel. Pogledaj ovde http://www.dbforums.com/archive/index.php/t-973449.html - na dnu stanice.



Citat:
Buck: Resenje koje se tamo sugerira podrazumeva da zapravo promenim ogromne blokove rutina u svojoj aplikaciji, konkretno tamo gde je stojalo WITH, da to izbacim i zamenim sa odgovarajucom referencom.
Sugerirano je i da setujem .CutCopyMode = False, sto je i logicno jer tokom pravljenja makroa covek moze da zaboravi da je negde nesto ostalo selektovano...
Naravno sve to treba uraditi i posle se pomoliti dali ce se Excel spustiti na xlapp.quit komandu...
Trenutak istine se blizi pa cu javiti ishode...



Nazalost nije uspela operacija.
Iz svih rutina sam izbacio WITH i ubacio pune reference...(nekoliko stotina minucioznih izmena)
Odradio Save As metodu i na kraju:

xlApp.CutCopyMode = False
xlApp.Quit
Set xlApp = Nothing

I nista (Excel ostade u memoriji
[ Ivek33 @ 22.03.2008. 11:11 ] @
Hi,
ne pišem Macro-e ali sam naišao na jednu web stranicu pa rekoh možda ti može pomoći
evo linka http://www.cpearson.com/excel/ExcelShutdown.htm
[ Buck @ 22.03.2008. 22:12 ] @
!!!
Citat:
Ivek33: Hi,
ne pišem Macro-e ali sam naišao na jednu web stranicu pa rekoh možda ti može pomoći
evo linka http://www.cpearson.com/excel/ExcelShutdown.htm


Hvala druze, pregledao sam to duz i popreko ali tu nema 'issues' koje se odnose na ovaj moj problem!
Ima, naime, jedno parce koda 'dll', koje daje povratnu informaciju o tome da je neki workbook zatvoren medjutim, meni treba pomoc oko zatvaranja
kompletne aplikacije Excel...
Svejedno, puno hvala