folder bestanden

[Tjico30]

Ik heb een folder met daain een heleboel andere folders.
in wil de namen van deze folders in Excel krijgen maar kopieren en plakken wil niet.
emand en idee ?

 

[VTeun]

Met JDirPrinter (download: http://www.spadixbd.com/freetools/jdirprint.htm )worden
de mappen op je HD in kladblok gezet. Vervolgens Alles Selecteren > Ctrl+C en Ctrl+V plakken in Excel....

 

[Ginger]

Tjico30, Deze code zet alle bestanden van een bepaalde directory in een excelsheet...

Option Base 1

Sub ToonBestanden()
Dim arrTemp() As Variant
Dim sDir As String, sPath As String
Const sOutputStart As String = "A2" 'geef hier het CELadres waar de outputtabel moet starten
Dim i As Integer, iGetal As Integer
    
    For i = 1 To Len(sOutputStart)
        If Mid(sOutputStart, i, 1) Like "[0-9]" Then
            iGetal = iGetal + Mid(sOutputStart, i, 1)
        End If
    Next i
    
    If iGetal < 2 Then
        MsgBox "Start van de tabel is onjuist. Pas de startregel aan", vbOKOnly 'sOutputStart moet minimaal op de 2e regel beginnen!
        Exit Sub
    End If
    
    sPath = "D:\Helpmij.NL\"  'zet hier je eigen 'te onderzoeken path'; SLUIT WEL AF MET EEN BACKSLASH!!!!
    
    sDir = Dir$(sPath & [B]"*.xls"[/B], vbNormal) 'pas eventueel het "*.xls" aan als het om alle bestanden gaat

    Range(sOutputStart).EntireColumn.Delete
    
    Application.ScreenUpdating = False
    
    Do Until Len(sDir) = 0
        i = i + 1
        ReDim Preserve arrTemp(i)
        arrTemp(i) = sDir
'        Debug.Print sDir 'voor het testen...
        sDir = Dir$
    Loop
    
    With Range(sOutputStart)
        With .Offset(-1)
            .Value = sPath
            .Font.Bold = True
            .Font.Underline = True
        End With
        .Resize(UBound(arrTemp), 1) = Application.Transpose(arrTemp)
        .EntireColumn.AutoFit
    End With
    
    Application.ScreenUpdating = True

End Sub

Groet, Leo

 

[Ginger]

...en via deze link vind je een HELE gave code om de bestanden in een sheet te krijgen inclusief allerlei attributen die bij het bestand horen.

Groet, Leo