Meerdere mappen en submappen aanmaken vanuit een lijst met gegevens in Excel

Stel dat u een lijst met medewerkersnamen hebt in een werkbladbereik en voor elk van hen een individuele map wilt aanmaken om hun informatie op te slaan. Het handmatig aanmaken van elke map kost veel tijd — maar gelukkig zijn er efficiënte methoden om dit proces aanzienlijk te versnellen. In deze handleiding deel ik verschillende slimme benaderingen om razendsnel mappen te genereren op basis van de waarden in uw cellen.

Mappen maken op basis van celwaarden

• Door gebruik te maken van de MD-opdracht en Kladblok
• Door gebruik te maken van een krachtige functie – Kutools voor Excel
• Door gebruik te maken van VBA-code

Mappen en submappen aanmaken op basis van celwaarden met VBA-code

Mappen maken op basis van celwaarden

In dit gedeelte verkennen we diverse methoden in detail en bieden uitgebreide, stapsgewijze instructies om snel en moeiteloos mappen te maken op basis van een lijst met celwaarden.

Mappen aanmaken vanuit een lijst met behulp van het MD-commando en Notepad

Een lijst uit Excel omzetten naar mappen met het MD-commando en Notepad is een slimme truc die eenvoudige batch-scripting combineert met de organisatorische kracht van Excel. Deze methode is ideaal om in één keer meerdere mappen aan te maken, zonder handmatig werk. Volg deze stapsgewijze handleiding om de taak vlot uit te voeren:

Stap 1: Gebruik het MD-commando om Formules maken

Kopieer of typ de volgende formule in een lege cel naast uw eerste celwaarde (bijvoorbeeld B1) en sleep daarna de vulgreep omlaag om de formule toe te passen op al uw lijstitems.

="MD "&A1

Stap 2: Kopieer en plak de formules in een Notepad-bestand

1. Druk op Ctrl + C om de cellen met de MD-opdrachtformule te kopiëren.
2. Open Kladblok en druk op „Ctrl + V” om de opdrachten in een gegenereerd bestand te plakken.
   

Stap 3: Sla het Notepad-bestand op als .bat-bestand

Klik in het tabblad **Bestand** van Notepad op **Opslaan als**. Selecteer in het dialoogvenster **Opslaan als** een map waarin u meerdere mappen wilt aanmaken, geef het bestand een naam met de extensie **.bat** en klik tot slot op **Opslaan**. Zie screenshot:

Stap 4: Dubbelklik op het .bat-bestand om meerdere mappen te genereren

1. Sluit het Notepad-bestand en ga naar de map waarin u het .bat-bestand eerder hebt opgeslagen.
2. Bewonder nu de magie: dubbelklik op het bestand en zie meerdere mappen tegelijkertijd worden aangemaakt. Bekijk de demo hieronder:
   

Mappen aanmaken vanuit een lijst met behulp van de krachtige tool – Kutools voor Excel

Met de krachtige functie **‘Map maken op basis van bereik’** van Kutools voor Excel maakt u in een handomdraai mappen vanuit een Excel-lijst. En het gaat verder dan alleen eenvoudige mappen: Kutools stelt u bovendien in staat om met één klik complexe, meerdere niveaus diepe submapstructuren aan te leggen. In slechts een paar simpele stappen zet u uw Excel-gegevens om in een strakke mapstructuur – en verhoogt u uw productiviteit aanzienlijk.

Na installatie van Kutools voor Excel klikt u op "KUTOOLS PLUS" > "Importeren/Exporteren" > „Map maken op basis van bereik" om het dialoogvenster Map maken op basis van bereik te openen:

1. Selecteer de celwaarden waarop u mappen wilt baseren;
2. Klik vervolgens op de -knop om de doelmap op te geven waarin u de mappen wilt opslaan;
3. Klik ten slotte op de knop OK.
   

Resultaat:

Kutools verwerkt de lijst uit uw werkblad en maakt op de opgegeven locatie automatisch een map aan voor elk item. Navigeer naar de doelmap om het resultaat te bekijken. Zie screenshot:

Mappen aanmaken vanuit een lijst met behulp van VBA-code

Met VBA-code in Excel verandert u het tijdrovende handmatig aanmaken van mappen vanuit een lijst in een snelle, geautomatiseerde procedure. In dit gedeelte laten we u zien hoe u met VBA eenvoudig mappen genereert.

Stap 1: Open de VBA-module-editor en kopieer de code

1. Druk op ALT + F11 in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op "Invoegen" > „Module" en plak de volgende code in het modulevenster.
   VBA-code: Mappen aanmaken op basis van een lijst met celwaarden

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Stap 2: Voer de code uit

1. Nadat u deze code hebt geplakt, drukt u op F5 om de code uit te voeren. Selecteer in het dialoogvenster de celwaarden waaruit u mappen wilt maken en klik op OK.
   
2. Geef in het venster **‘Selecteer de doelmap’** het pad op waar de aangemaakte mappen moeten worden opgeslagen en klik daarna op **OK**. Zie screenshot:
   

Resultaat:

Na uitvoering van de VBA-code gaat u naar de doelmap om het resultaat te bekijken. Daar vindt u de nieuw aangemaakte mappen, elk gekoppeld aan een item uit uw Excel-lijst. Zie screenshot:

Mappen en submappen aanmaken op basis van celwaarden met VBA-code

Soms komt u in een situatie terecht waarin u niet alleen mappen, maar ook de bijbehorende submappen moet aanmaken — allemaal op basis van gegevens uit Excel-cellen. Voor deze taak introduceer ik hier een VBA-code.

Stap 1: Bereid de gegevens voor

Voer eerst de gegevens in zoals weergegeven in de onderstaande screenshot: plaats de hoofdmapnaam in de eerste kolom en de namen van de submappen in de tweede kolom.

Stap 2: Open de VBA-module-editor en kopieer de code

1. Houd de toetsencombinatie Alt + F11 in Excel ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op "Invoegen" > „Module" en plak de volgende code in het modulevenster.
   VBA-code: Mappen en submappen aanmaken op basis van celwaarden

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Stap 3: Voer de code uit

1. Nadat u deze code hebt geplakt, drukt u op F5 om de code uit te voeren. Selecteer in het dialoogvenster de celwaarden waaruit u mappen wilt maken en klik op OK.
   
2. Geef in het pop-upvenster dat verschijnt het doelpad op waar de aangemaakte mappen moeten worden opgeslagen en klik daarna op OK. Zie screenshot:
   

Resultaat:

Na uitvoering van de VBA-code gaat u naar de doelmap om het resultaat te bekijken. U ziet dat de mappen en bijbehorende submappen, zoals bepaald door de celwaarden, succesvol zijn aangemaakt — zoals weergegeven in de onderstaande screenshot:

Gerelateerde artikelen: