Pozdravljeni
Podobna tema je že bila, a je ne najdem, pa prosim za pomoč.
Zanima me koda, kako bi direktno odpru menu za odpiranje datotek na določenem direktoriju (npr.: C:\podatki).
Lep pozdrav
Odpiranje menuja
Re: Odpiranje menuja
Verjetno iščete tole:
http://www.matjazev.net/forum/viewtopic.php?f=3&t=1357
http://www.matjazev.net/forum/viewtopic.php?f=3&t=1357
lp,
cedra
cedra
Re: Odpiranje menuja
![Sad :(](./images/smilies/icon_sad.gif)
Lp
Re: Odpiranje menuja
Ne vem, če ste sploh pogledali do konca prispevek, saj vam ukaz
naredi točno to, kot tudi ukaz CTRL+O.
Samo prirediti ga je treba, katere vrste datotek pokaže, kot kaže zgornji primer kode...
Koda: Izberi vse
Dim datoteka: datoteka = Application.GetOpenFilename("Vse datoteke,*.xls;*.html", 1, , , False)
Samo prirediti ga je treba, katere vrste datotek pokaže, kot kaže zgornji primer kode...
lp,
cedra
cedra
Re: Odpiranje menuja
![Embarassed :oops:](./images/smilies/icon_redface.gif)
Lp
Re: Odpiranje menuja
Nekaj sem se matral, toda nisem našel rešitve.
Zato sem prebrskal splet in mislim, da se rešitev za vas nahaja tukaj:
http://www.tek-tips.com/faqs.cfm?fid=4114
Kodo sem preizkusil in deluje tako kot želite vi, lahko določite mapo, kjer boste potem izbirali datoteke za odpiranje.
Boste pa morali spremeniti tiste"DIR-e"!
![Crying or Very sad :cry:](./images/smilies/icon_cry.gif)
Zato sem prebrskal splet in mislim, da se rešitev za vas nahaja tukaj:
http://www.tek-tips.com/faqs.cfm?fid=4114
Kodo sem preizkusil in deluje tako kot želite vi, lahko določite mapo, kjer boste potem izbirali datoteke za odpiranje.
Boste pa morali spremeniti tiste"DIR-e"!
lp,
cedra
cedra
Re: Odpiranje menuja
Ja to je to
.
Mal sem skombiniru:
Hvala za hitro pomoč.
![Very Happy :D](./images/smilies/icon_biggrin.gif)
Mal sem skombiniru:
Koda: Izberi vse
ChDir ("C:\podatki")
Dim datoteka: datoteka = Application.GetOpenFilename("Excel Files,*.xls", 1, , , False)
If TypeName(datoteka) = "Boolean" Then Exit Sub
Workbooks.Open Filename:=datoteka