Odpiranje menuja

Pomoč pri izdelavi makrov
Odgovori
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odpiranje menuja

Odgovor Napisal/-a 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
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: Odpiranje menuja

Odgovor Napisal/-a cedra »

lp,

cedra
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Odpiranje menuja

Odgovor Napisal/-a 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
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: Odpiranje menuja

Odgovor Napisal/-a 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...
lp,

cedra
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Odpiranje menuja

Odgovor Napisal/-a Stenly »

:oops: ; 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
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: Odpiranje menuja

Odgovor Napisal/-a cedra »

Nekaj sem se matral, toda nisem našel rešitve. :cry:
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
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Re: Odpiranje menuja

Odgovor Napisal/-a Stenly »

Ja to je to :D .
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č.
Odgovori