Makro-zapisovanje map in datotek v exelov zvezek

Pomoč pri izdelavi makrov
Odgovori
slavkomoharic
Prispevkov: 5
Pridružen: Pe Mar 17, 2006 2:00 pm

Makro-zapisovanje map in datotek v exelov zvezek

Odgovor Napisal/-a slavkomoharic »

Potrebujem pomoč oziroma makro ki mi bi iz neke mape prebral vse mape in datoteke ter seznam zapisal v ekselovem zvezku
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
Odgovori