[ milemile2 @ 06.09.2009. 18:54 ] @
Primenio sam kod za pamcenje fajla, pri cemu novo ime dobija na osnovu unosa u odredjenu celiju, ali problem nastaje kada hocu da zadam putanju. Kao rezultat dobijem ime promenljive, kada je upisem na kraju putanje.
Ocito da se putanja zadaje na drugi nacin, koji ne umem da resim?
Kada fajl pamtim pod drugim imenom istovremeno bih trebao da novi fajl ne sadrzi postojeci kod.

Code:
[Private Sub Zapamti()
'zapamti fajl pod zadatim imenom
     Dim ImeFajla As String
     ImeFajla = Sheets("Nalog").Range("C3").Text
     ActiveWorkbook.SaveAs Filename:=ImeFajla
    ' "C:\Documents and Settings\My Documents\KopijeNaloga\NOVOIME.xls" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   End Sub]
[ unisoft @ 06.09.2009. 21:18 ] @
Ovako bi trebalo ako sam dobro razume sta ti treba.


ImeFajla = Sheets("Nalog").Range("C3").Text ovo je u redu

e sada

ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\My Documents\KopijeNaloga\" & ImeFajla & ".xls" , FileFormat:=xlOpenXMLWorkbook,CreateBackup:=False

bitno je da ispred i iza svakog & bude razmak (1 space)



[Ovu poruku je menjao unisoft dana 06.09.2009. u 22:54 GMT+1]
[ milemile2 @ 09.09.2009. 06:39 ] @
Nisam stigao da pogledam pre.
Greska se javlja pri izvrsenju u zadnjoj liniji (Method 'SaveAs' of object'_Workbook' failed), a ja ne vidim gde.

Code:
Private Sub Zapamti()
'zapamti fajl pod zadatim imenom
     Dim ImeFajla As String
     ImeFajla = Sheets("Nalog").Range("C3").Text
     ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Mladen\My Documents\KopijeNaloga\" & ImeFajla & ".xls", _
         FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   End Sub


Hteo sam da korisnik po ispisu svakog naloga zapamti sadrzaj naloga pod imenom "broj naloga", datum i sadrzaj, pri cemu zapamcen faj ne treba da sadrzi i macro.
U svakom slucaju hvala i na dosadasnjoj pomoci.
[ neptuncokg @ 17.09.2009. 11:35 ] @
Listajuci arhivu foruma dosao sam do originalnog resenja za ovaj problem koji je postavio JPeca davne 2006.godine.
Zbog originalnosti i jednostavnosti potsecam na njega:

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

Time se dokumenat arhivira u MyDocument pod nazivom koji je definisan u celiji B5. Tu je data i napomena da se promenljivoj UNOS moze dodati putanja, tako da se fajl ne kopira u MyDocument, vec u bilo koji drugi folder. E to mi nije poslo za rukom, pa bih zamolio Jpecu da samo to pojasni. Naprimer, hocu da mi se fajl zapamti u : "C:\ARHIVA\PLATE"
Hvala unapred.
[ Jpeca @ 17.09.2009. 12:37 ] @
Da nekad nije loše koristiti pretraživanja, nakupilo se već dosta odgovora na forumu. Doduše ne vidim ništa originalno u rešenju - praktično je isto kao ovo što je napisao milemile2.
Dodavanja putanje je krajnje jednostavno. Promeni red u kome se postavlja promenljiva unos
Code:
unos = "C:\ARHIVA\PLATE\" & Sheets(1).Range("B5").Text

Pretpostavlja se da postoji folder C:\ARHIVA\PLATE. Ne znam kakav si ti problem imao, ali ovo sam testirao na verziji 2003 i radi.

[ neptuncokg @ 17.09.2009. 13:43 ] @
Imao sam problem u nedostatku znanja. Konkretno - falilo mi je ovo &. Hvala. Sad radi i kod mene.