[es] - Full path in title bar?

dullence
beograd

Član broj: 20991
Poruke: 21
*.dynamic.sbb.rs.

Profil

^{25.05.2010. u 13:55 - pre 169 meseci}

Pozdrav svima.
Da li neko možda zna kako da napravim da mi svaki put kada otvorim bilo koji fajl (excel 2003) prikazuje full path u tiile bar-u?
Skontao sam da moraju makro-i ali nisam uspeo :(
Hvala unapred!

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: Full path in title bar?

^{26.05.2010. u 13:28 - pre 169 meseci}

u VBA editoru unesi ovaj kod

ActiveWindow.Caption = ActiveWorkbook.FullName

[email protected]=

Odgovor na temu

dullence
beograd

Član broj: 20991
Poruke: 21
80.93.253.*

Profil

Re: Full path in title bar?

^{26.05.2010. u 21:39 - pre 169 meseci}

Hvala!Probaću
Ako uspe imaš piće ;)

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Full path in title bar?

^{27.05.2010. u 00:57 - pre 169 meseci}

Citat:

dullence: da mi svaki put kada otvorim bilo koji fajl (excel 2003) prikazuje full path u tiile bar-u?

Ima nekoliko načina
Snimi ovaj kod ispod u Personal.xls (Personal.xlsb) i prilikom svakog otvaranja već postojeće datoteke prikazat će ti path stazu u title baru (u ThisWorkbook)
btw: pogledaj link ako ti je nejasno Putanja do otvorene datoteke Excela u naslovu

Code:
Public WithEvents xlApp As Excel.Application

Private Sub Workbook_Open()
Set xlApp = Application
End Sub

Private Sub workbook_close()
Set myTitle.xlApp = Nothing
End Sub

Private Sub xlApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898

+66 Profil

Re: Full path in title bar?

^{28.05.2010. u 10:51 - pre 169 meseci}

Citat:

FOX028: ActiveWindow.Caption = ActiveWorkbook.FullName

Ovaj kod ne daje konstantnu mogućnost prikazivanja full path staze. No kad je već spomenut u temi, evo malo pojašnjenje za buduće čitaoce teme.

Potpuni izgled koda je ovakav i postavlja se u Personal.xls workbook:

Code:
Sub ChangeCaption()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

S obzirom da je Personal.xls datoteka koja čuva osobne postavke korisničkih funkcija i makronaredbi opće namjene koje nam trebaju biti dostupne kada ih zatrebamo ovaj kod se postavlja u Module1 dotične Personal.xls datoteke

Prilikom otvaranja već snimljene *.xls datoteke u naslovnoj traci (title bar) imamo samo naziv datoteke. U momentu kada želimo saznati (vidjeti) full path stazu do otvorene datoteke, pritisnemo ALT+F8 i pokrenemo makronaredbu "PERSONAL.XLS!ChangeCaption", tada će nam se u title baru prikazati full path. Dakle koristimo je po potrebi prikazivanja full path.
Ako otvorenu datoteku sa prikazanom putanjom snimimo pod drugim nazivmo (SaveAs) na drugo mjesto, neće nam se prikazati nova putanja do datoteke sve dok ne pokrenemo ponovno makronaredbu.

- za ova istraživanja (za one koji ne znaju) izradio sam Tutorijal na temu Kako kreirati PERSONAL.XLS

Odgovor na temu

dullence
beograd

Član broj: 20991
Poruke: 21
*.dynamic.sbb.rs.

Profil

Re: Full path in title bar?

^{16.06.2010. u 13:41 - pre 168 meseci}

Izvinjavam se, ali tek sam danas stigao da probam ovo i uspeo sam.
HVALA PUNO!!!
:)

Odgovor na temu