Makro-zapisovanje map in datotek v exelov zvezek

[slavkomoharic]

Potrebujem pomoč oziroma makro ki mi bi iz neke mape prebral vse mape in datoteke ter seznam zapisal v ekselovem zvezku

[admin]

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!

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