Hoe alle mappen en submappen in Excel te lijsten?
Bij het werken aan taken voor directory- of bestandsbeheer, kan het voorkomen dat u snel een uitgebreide lijst nodig heeft van alle mappen en submappen binnen een specifieke directory, en die informatie direct in Excel wilt bekijken. Helaas biedt Excel geen ingebouwde functie of eenvoudige wizard om automatisch alle map- of submapnamen van een aangewezen folderpad te verkrijgen. Dit artikel introduceert VBA-code waarmee u alle mappen en submappen van een gekozen directory rechtstreeks in uw werkblad kunt weergeven. Dit minimaliseert het risico op menselijke fouten en elimineert tijdrovend werk, zodat u uw gegevensorganisatie snel kunt volgen en beheren.
Gebruik VBA-code om alle mappen en submappen te lijsten
Gebruik VBA-code om alle mappen en submappen te lijsten
Als u alle map- en submapnamen uit een gespecificeerde directory wilt extraheren en weergeven in Excel, is het gebruik van VBA (Visual Basic for Applications) een effectieve oplossing. Deze aanpak biedt flexibiliteit en controle, zodat u niet alleen mapnamen kunt verkrijgen, maar ook extra informatie zoals mappaden, aanmaakdatums en laatst gewijzigde datums. Deze methode is vooral geschikt voor gebruikers die vertrouwd zijn met de ontwikkelaarsfuncties van Excel en voor hen die te maken hebben met dynamische of vaak veranderende bestandssystemen.
1. Druk op ALT + F11 om de "Microsoft Visual Basic for Applications"-editor te openen. Met dit hulpmiddel kunt u macro's toevoegen en bewerken in uw werkmap.
2. Klik in de VBA-editor op Invoegen > Module. Hierdoor wordt een nieuw modulevenster gemaakt. Kopieer en plak de volgende code in de module:
VBA-code: Lijst alle mappen en submappen
Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choose the folder"
.Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
xRow = Range("A1").End(xlDown).Row + 1
Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
getSubFolder subfld
Next subfld
End Sub
3. Nadat u de code hebt ingevoegd, drukt u op F5 of klikt u op de knop Uitvoeren in de VBA-editor om de macro uit te voeren. Er verschijnt een dialoogvenster Kies de map, waarin u wordt gevraagd de doeldirectory te selecteren die u wilt scannen op mappen en submappen.
4. Selecteer de gewenste directory en klik op OK. De macro zal de directory verwerken en een nieuwe werkmap genereren waarin alle mappen en submappen worden weergegeven, samen met hun volledige paden, directe bovenliggende directory, namen, aanmaakdatums en laatst gewijzigde datums zoals hieronder te zien is:
Enkele praktische tips en opmerkingen bij het gebruik van deze code:
- Als uw directorystructuur erg groot is, kan het even duren voordat de macro alle mappen heeft verwerkt. Wees geduldig tijdens de uitvoering en onderbreek het proces niet.
- De VBA-methode vereist dat uw macro-instellingen zijn ingeschakeld; anders zal de code niet goed functioneren. Als u beveiligingswaarschuwingen tegenkomt, controleer dan uw instellingen in het Trust Center onder Excel-opties.
- Als u per ongeluk de verkeerde map selecteert, voert u de macro gewoon opnieuw uit en kiest u de juiste directory.
- Deze aanpak geeft alleen informatie over mappen en submappen weer; als u ook bestanden wilt weergeven, raadpleegt u het gerelateerde artikel hieronder voor meer opties.
- Als meerdere gebruikers de werkmap delen, herinner hen er dan aan dat macros op hun eigen computers moeten zijn ingeschakeld om deze dynamische lijstfunctionaliteit te gebruiken.
- Als de gegenereerde werkmap leeg of onvolledig is, controleer dan of de geselecteerde directory niet leeg is en dat u voldoende leesrechten hebt. Voor bijzonder diepe of complexe mappenstructuren, controleer de resourcegrenzen van uw systeem en overweeg om indien nodig in batches of subdirectories te verwerken.
Deze VBA-oplossing is flexibel, vereist geen extra invoegtoepassingen of externe software en maakt automatisch een uitvoerwerkmap voor uw gemak. Echter, deze is het beste geschikt voor gebruikers die vertrouwd zijn met basis macro-operaties en kan mogelijk extra aanpassingen vereisen voor specifieke aanpassingen.
Gerelateerd artikel:
Hoe een lijst van bestanden in een directory naar een werkblad in Excel te krijgen?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen