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

Pamcenje fajla pod imenom zadatim u ćeliji

[es] :: Office :: Excel :: Pamcenje fajla pod imenom zadatim u ćeliji

[ Pregleda: 1777 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

milemile2
Milan Karanovic
Karan co.
Beograd

Član broj: 163031
Poruke: 14
*.adsl.eunet.rs.



Profil

icon Pamcenje fajla pod imenom zadatim u ćeliji06.09.2009. u 18:54 - pre 178 meseci
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]
Milan K.
 
Odgovor na temu

unisoft
Uzice

Član broj: 124050
Poruke: 346
93.86.67.*



+1 Profil

icon Re: Pamcenje fajla pod imenom zadatim u ćeliji06.09.2009. u 21:18 - pre 178 meseci
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]
 
Odgovor na temu

milemile2
Milan Karanovic
Karan co.
Beograd

Član broj: 163031
Poruke: 14
*.adsl.eunet.rs.



Profil

icon Re: Pamcenje fajla pod imenom zadatim u ćeliji09.09.2009. u 06:39 - pre 178 meseci
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.
Milan K.
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.216.*



+9 Profil

icon Re: Pamcenje fajla pod imenom zadatim u ćeliji17.09.2009. u 11:35 - pre 177 meseci
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.
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Pamcenje fajla pod imenom zadatim u ćeliji17.09.2009. u 12:37 - pre 177 meseci
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.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.216.*



+9 Profil

icon Re: Pamcenje fajla pod imenom zadatim u ćeliji17.09.2009. u 13:43 - pre 177 meseci
Imao sam problem u nedostatku znanja. Konkretno - falilo mi je ovo &. Hvala. Sad radi i kod mene.
 
Odgovor na temu

[es] :: Office :: Excel :: Pamcenje fajla pod imenom zadatim u ćeliji

[ Pregleda: 1777 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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