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
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
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
; 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
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"!
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č.
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