Izberi datoteke s končnicami .xls in .xlsx

Pomoč pri izdelavi makrov
Odgovori
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Izberi datoteke s končnicami .xls in .xlsx

Odgovor Napisal/-a sonofagun »

Pozdravljeni.

Pri pisanju makroja sem naletel na naslednjo težavo: z makrojem odprem mapo z datotekami (pokažem mapo v raziskovalcu), imena vseh datotek v mapi zapišem na list (stolpec g), potem pa ta imena preko listboxa ponudim uporabniku za nadaljnjo uporabo. Problem imam s tem, da iz tistih zapisanih imen datotek ne znam izbrati samo Excelovih (.xls in .xlsx). Celoten makro mi deluje kot želim, problem je samo, da v listboxu prikažem preveč (neuporabnih) podatkov. Kako naj ali izbrišem (oz. ne upoštevam) vrstice z neExcelovimi datotekami ali pa že v osnovi zapišem samo imena Excelovih datotek?

Koda: Izberi vse

MojList.Select
Dim z As Long

z = Range("g65536").End(xlUp).Row

UserForm1.ListBox1.RowSource = ("g2:g" & z)
Lep pozdrav

Gregor
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Izberi datoteke s končnicami .xls in .xlsx

Odgovor Napisal/-a admin »

Ni problem v tem delu - problem je v delu kode, kjer polnite podatke. Popraviti morate torej polnjenje oz. v vašem primeru branje imen datotek iz diska - prebrati morate samo Excelove datoteke, torej datoteke, ki se končajo na '.XLS*'.

Poglejte si primer v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
sonofagun
Prispevkov: 119
Pridružen: Če Mar 26, 2009 11:05 am

Re: Izberi datoteke s končnicami .xls in .xlsx

Odgovor Napisal/-a sonofagun »

Tam sem našel, kar sem iskal.

Še enkrat več hvala za odgovor.

Lep pozdrav

Gregor
Odgovori