Mappenlijst omzetten naar Excel

Status
Niet open voor verdere reacties.
R

robbie123321

Gebruiker
Lid geworden
25 mei 2016
Berichten
101
Weet iemand een goed en liefst freeware programma waarmee ik een lijst met mappen om kan zetten in een lijst van deze mappen in Excel?

Het hoeft alleen maar de naam van de zichtbare mappen te zijn, onderliggende mappen doen er niet toe.

Alvast bedankt!
 
Zoiets:
Code: 
Sub ToonFolder()
    Dim FS As New FileSystemObject
    Dim FSfolder As Folder
    Dim subfolder As Folder
    Dim i As Long

    Set FSfolder = FS.GetFolder("D:\")
    
    For Each subfolder In FSfolder.SubFolders
        i = i + 1
        Cells(i, 1) = subfolder
    Next subfolder
    
    Set FSfolder = Nothing
End Sub

Wel even een verwijzing zetten naar Microsoft Scripting Runtime.
 
Laatst bewerkt:
Even hele domme vraag misschien: waar moet ik dat invoeren en hoe zet ik een verwijzing erbij naar Microsoft Scripting Runtime?
 
Bij deze een document met voorbeeld.
Vul in A3 de gewenste top folder in en druk dan op de knop.
Het plaatje in het document laat zien waar je in de VBA Editor de verwijzing naar de Microsoft Scripting Runtime doet.
Voor dit document is dat al gedaan.

Voorbeeld document:
Bekijk bijlage robbie123321.xlsm
 
Bedankt voor je kant-en-klare document, code en uitleg!

Ik heb wel even moeten Googlen waar je VBA kan bewerken.

Dat was rechter muisknop op lint klikken en vervolgens klikken op "lint aanpassen" en "ontwikkelaars" aanvinken en op "ok" klikken.
Vervolgens klikken op tabblad "ontwikkelaars" en helemaal links op "Visual Basic" klikken. Daar stond de VBA code die je hier beschreef.
Daar klikken op "extra" en dan "verwijzingen" en dan "Microsoft Scripting Runtime" aanvinken en op "ok" klikken.

Ik heb het hier even opgeschreven voor wie in dit forum aan het zoeken is naar de methode en net als ik niet thuis is in VBA in Excel.

Nogmaals bedankt!

btw: waar kan ik meer leren over VBA en macro's?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan