Odpiranje menuja

[Stenly]

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

[cedra]

Verjetno iščete tole:
http://www.matjazev.net/forum/viewtopic.php?f=3&t=1357

[Stenly]

ne, ne. Tak bi odpru določeno datoteko. Želim pa odpret excel-ov menu (kot Ctrl+o) za odpiranje datotek, kjer bom jaz izbral datoteko. Pač na določenem direktoriju.

Lp

[cedra]

Ne vem, če ste sploh pogledali do konca prispevek, saj vam ukaz

Koda: Izberi vse

Dim datoteka: datoteka = Application.GetOpenFilename("Vse datoteke,*.xls;*.html", 1, , , False)

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...

[Stenly]

; ja nisem prebral do konca. To je to, se mogoče da še spremeniti lokacijo mape, pod katero odpira, al vedno ostane tista, ki je nastavljena v excelu?

Lp

[cedra]

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"!

[Stenly]

Ja to je to .
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

Hvala za hitro pomoč.