Kako je moguce iz Forme (UserForm) pomocu dugmeta (CommandButton) navodjenjem putanje otvoriti bilo koji fajl.
Pozdrav
Pozdrav
[EXCEL] Iz Forme otvoriti fajl
Zaključano
Zakačeno
Dodaj kod za onclick dogadjaj dugmeta npr.
ili da otvoris beleske u Notepad-u
Pozdrav
Code:
Shell "C:\myapp.exe" , vbNormalFocus
Shell "C:\myapp.exe" , vbNormalFocus
ili da otvoris beleske u Notepad-u
Code:
Shell "notepad C:\beleske.txt", vbNormalFocus
Shell "notepad C:\beleske.txt", vbNormalFocus
Pozdrav
Hvala timmy
Ipak nesto ne funkcionise kako treba. Naime kad kliknem na dugme sve ostaje isto.
naveo sam najprostiju putanju:
Private Sub CommandButton1_OnClick()
Shell "C\Racun tabela.xls", vbNormalFocus
End Sub
Probao sam i sa CommandButton1_Click() i opet nista. Gde gresim.
Ipak nesto ne funkcionise kako treba. Naime kad kliknem na dugme sve ostaje isto.
naveo sam najprostiju putanju:
Private Sub CommandButton1_OnClick()
Shell "C\Racun tabela.xls", vbNormalFocus
End Sub
Probao sam i sa CommandButton1_Click() i opet nista. Gde gresim.
izmenjeno 1 put, poslednji put Catch 22 04.09.2008. u 12:37
Izmene poruke
- Catch 2204.09.2008. u 12:37zapis iz teksta poruke
Citat:
mirko1949: Gde gresim.
Ako koristiš Shell komandu, moraš navesti i naziv aplikacije (eventualno i putanju), a ne samo fajla. Pogledaj malo bolje kod koji ti je timmy postavio...
Shell nije komanda nego funkcija 
Ako hoces vec da koristis Shell() funkciju onda mozes to na sledeci nacin:
Ovom linijom koda u stvari pozivas skriveni CommandPrompt i kazes mu da izvrsi otvaranje zadatog fajla programom koji je registrovan na sistemu kao default da ga otvori. Dok je fajl otvoren, imas i cmd.exe u procesima, a kada zatvoris fajl nestaje i cmd.exe iz liste aktivnih procesa.
Ja ti ipak preporucujem ShellExecute()
Ako hoces vec da koristis Shell() funkciju onda mozes to na sledeci nacin:
Code:
Shell "cmd /C ""C:\Racun tabela.xls""", vbHide
Shell "cmd /C ""C:\Racun tabela.xls""", vbHide
Ovom linijom koda u stvari pozivas skriveni CommandPrompt i kazes mu da izvrsi otvaranje zadatog fajla programom koji je registrovan na sistemu kao default da ga otvori. Dok je fajl otvoren, imas i cmd.exe u procesima, a kada zatvoris fajl nestaje i cmd.exe iz liste aktivnih procesa.
Ja ti ipak preporucujem ShellExecute()
Citat:
mirko1949:
Private Sub CommandButton1_OnClick()
Shell "C\Racun tabela.xls", vbNormalFocus
End Sub
Gde gresim.
Private Sub CommandButton1_OnClick()
Shell "C\Racun tabela.xls", vbNormalFocus
End Sub
Gde gresim.
Da bi izbegao dodatnu zbrku zbog razmaka u nazivu fajla, preimenuj fajl u Racun_tabela.xls
Onda probaj samo da prepraviš svoj kod ovako i proradiće
Code:
Private Sub CommandButton1_OnClick()
Shell "excel C:\Racun_tabela.xls", vbNormalFocus
End Sub
Private Sub CommandButton1_OnClick()
Shell "excel C:\Racun_tabela.xls", vbNormalFocus
End Sub
ili ako zelis da ostavis razmak u imenu fajla
Code:
Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus
Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus
Ovo je uspelo, ali samo sa pozivanjem dokumenata iz Excela, ali kada sam probao za Word nece. Izmenio sam kod na:
Shell "word""C:\Racun tabela.doc""", vbNormalFocus javlja mi gresku "Run time error 53" i File not found.
Shell "word""C:\Racun tabela.doc""", vbNormalFocus javlja mi gresku "Run time error 53" i File not found.
Nisi dobro pozvao zeljeni program
Ovako radi:
Ovako radi:
Code:
Private Sub CommandButton1_OnClick()
Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus
Shell "winword ""C:\Racun tabela.doc""", vbNormalFocus
End Sub
Private Sub CommandButton1_OnClick()
Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus
Shell "winword ""C:\Racun tabela.doc""", vbNormalFocus
End Sub
Hvala na pomoći, ali i pored toga nije mi uspelo. U jednom trenutku mi je uspelo za Excel, ali za word nije, mada sam kopirao zadnje kodove.
Pa moraš i da imaš navedene dokumente, pod tačno tim nazivom, na tačno toj putanji inače Excel i Word prijave grešku i otvore blanko dokumenat:
C:\Racun tabela.xls
C:\Racun tabela.doc
Simulirao sam navedenu situaciju na svom računaru i to radi, ne vidim zašto i kod tebe ne bi radilo?
C:\Racun tabela.xls
C:\Racun tabela.doc
Simulirao sam navedenu situaciju na svom računaru i to radi, ne vidim zašto i kod tebe ne bi radilo?
Primenio sam sve to. Oba dokumenta sam smestio sa nazivom "Racun tabela" direktno u C, medjutim kada kliknem na dugme u formi ne dešava se ništa, čak nejavlja nikakvu grešku. Probao sam i sa drugim putanjama za disk D, ali opet ništa. Da li eventualno postoji neka druga mogućnost.
Da li se dugme u tvojoj formi se zove "CommandButton1"?
PS
Mozda bi bilo brze da okacis ovde taj svoj excel fajl pa da vidimo tacno u cemu je greska
PS
Mozda bi bilo brze da okacis ovde taj svoj excel fajl pa da vidimo tacno u cemu je greska
Da baš tako se zove. Evo prikacen fajl moje probe. Da dodam još da mi se direktno na disku C nalazi dokument Racun tabela.
^ ?????!!!!!!
Tvoj fajl Povezivanje.xls je prazna radna sveska, sa dva prazna radna lista, nema nikakve forme, dugmadi, koda...
????
:(
Tvoj fajl Povezivanje.xls je prazna radna sveska, sa dva prazna radna lista, nema nikakve forme, dugmadi, koda...
????
:(
Nije prazna sveska. U VB (Alt+F11) je UserForm1 sa dugmetom.
Pozdrav za sve
Mirko u prikacenom primeru imas gresku u imenu boutona (dugmeta),
dugme tise zove CommandButton1_Click a ne CommandButton1_OnClick
Inace linija komande vrsi svoju funkciju ( Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus )
Pozdrav
Mirko u prikacenom primeru imas gresku u imenu boutona (dugmeta),
dugme tise zove CommandButton1_Click a ne CommandButton1_OnClick
Inace linija komande vrsi svoju funkciju ( Shell "excel ""C:\Racun tabela.xls""", vbNormalFocus )
Pozdrav
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Catch normalnoje da nevidis nista blokirati komande excel 07
kod mene ista stvar sa 07
otvori sa excelom 03 i sveje OK.
Verovatno nesto oko sigurnosti makroa ???
kod mene ista stvar sa 07
otvori sa excelom 03 i sveje OK.
Verovatno nesto oko sigurnosti makroa ???
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Otvaram fajl iz "Trusted Locations" gde se inače nalaze i moji excel fajlovi sa raznim kodom i makroima, ništa mi nije jasno!? Nikakvo upozorenje mi ne ispisuje!?
Probaću sa Excel 2002 na drugom sistemu...
Probaću sa Excel 2002 na drugom sistemu...
Neznam kako je nastala greska. Evo opet saljem fajl.
Kako da se izvede to da se zove CommandButton1_OnClick
Imam jos jedno pitanje: Kako bi glasila linija koda da se otvori npr BS player Pro file ili Movie Clip
Kako da se izvede to da se zove CommandButton1_OnClick
Imam jos jedno pitanje: Kako bi glasila linija koda da se otvori npr BS player Pro file ili Movie Clip