Makro-zapisovanje map in datotek v exelov zvezek
-
- Prispevkov: 5
- Pridružen: Pe Mar 17, 2006 2:00 pm
Makro-zapisovanje map in datotek v exelov zvezek
Potrebujem pomoč oziroma makro ki mi bi iz neke mape prebral vse mape in datoteke ter seznam zapisal v ekselovem zvezku
Pozdravljeni,
Ker je makro tako skrajno preprost sem vam ga napial, a naj bo to izjema in ne pravilo, saj ne morem kar pisati makrov po naročilu. Sploh pa ne pri tako "vljudni" prošnji
Mapo, ki jo želite prebrati zapišite v vrstici Mapa = ..., makro pa vam bo vse datoteke izpisal na trenutni list v kolono A od vrstice 1 dalje!
Ker je makro tako skrajno preprost sem vam ga napial, a naj bo to izjema in ne pravilo, saj ne morem kar pisati makrov po naročilu. Sploh pa ne pri tako "vljudni" prošnji
![Confused :?](./images/smilies/icon_confused.gif)
Mapo, ki jo želite prebrati zapišite v vrstici Mapa = ..., makro pa vam bo vse datoteke izpisal na trenutni list v kolono A od vrstice 1 dalje!
Koda: Izberi vse
' www.matjazev.net
' 17.03.2006
Sub PreberiMapo()
Dim Mapa As String
Dim Datoteka As String
Dim vrstica As Long
Mapa = "c:"
Datoteka = Dir(Mapa & "\*.*", vbDirectory)
vrstica = 1
Do While Datoteka <> ""
Cells(vrstica, 1) = Datoteka
vrstica = vrstica + 1
Datoteka = Dir
Loop
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator