Antag, at du har en liste over medarbejdernavne inden for et regnearksområde og sigter mod at oprette individuelle mapper for hver til at gemme deres oplysninger. Manuel oprettelse af hver mappe kan være tidskrævende. Der er dog effektive metoder til at fremskynde denne proces. I denne vejledning vil jeg dele flere tilgange til hurtigt at generere mapper baseret på de angivne celleværdier.

Opret mapper baseret på celleværdier

• Ved at bruge MD kommando og Notesblok
• Ved at bruge en kraftfuld funktion - Kutools til Excel
• Ved at bruge VBA-kode

Opret mapper og undermapper baseret på celleværdier med VBA-kode

Opret mapper baseret på celleværdier

I dette afsnit vil vi udforske forskellige metoder i detaljer og tilbyde omfattende trin-for-trin instruktioner til hurtigt og ubesværet at oprette mapper baseret på en liste over celleværdier.

Opret mapper fra en liste ved at bruge MD-kommando og Notesblok

At omdanne en liste fra Excel til mapper ved hjælp af MD-kommandoen og Notesblok er et smart trick, der blander let batchscripting med Excels evne til at holde tingene organiseret. Denne metode er fantastisk til at lave mange mapper hurtigt uden at skulle gøre det hele i hånden. Her er en trin-for-trin guide til at udføre denne opgave:

Trin 1: Brug MD-kommandoen til at oprette formler

Kopier eller indtast følgende formel i en tom celle ved siden af ​​din første celleværdi (for eksempel B1), og træk derefter udfyldningshåndtaget ned for at anvende formlen på alle dine listeelementer.

="MD "&A1

Trin 2: Kopier og indsæt formlerne i en Notesblok-fil

1. Presse Ctrl + C for at kopiere cellerne med MD-kommandoformlen.
2. Åbne Notepad og tryk Ctrl + V for at indsætte kommandoerne i en ny fil.
   

Trin 3: Gem Notepad-filen som .bat-fil

Klik Gem som fra File (Felt) fanen i Notesblok, i Gem som dialogboksen, vælg en mappe, hvor du vil oprette flere mapper, og giv derefter et navn til denne fil med en bat udvidelse. Klik til sidst Gem knap. Se skærmbillede:

Trin 4: Dobbeltklik på .bat-filen for at generere flere mapper

1. Luk Notesblok-filen, naviger til den mappe, hvor du tidligere har gemt .bat-filen.
2. Vær nu vidne til magien: Dobbeltklik på filen, og du vil se flere mapper blive oprettet på én gang. Se demoen herunder:
   

Opret mapper fra en liste ved hjælp af kraftfuldt værktøj - Kutools til Excel

Med de magtfulde Kutools til Excel's Opret mapper fra celleindhold funktion, kan du nu nemt og hurtigt oprette mapper fra en Excel-liste. Men det stopper ikke ved kun grundlæggende mapper; Kutools giver dig også mulighed for at skabe komplekse strukturer med undermapper på flere niveauer på én gang. Bare et par enkle trin kan transformere data fra Excel til et organiseret mappesystem, hvilket øger din produktivitet markant.

Efter installation Kutools til Excel, Skal du klikke Kutools Plus > Import Eksport > Opret mapper fra celleindhold at åbne Opret mapper fra celleindhold dialog boks:

1. Vælg de celleværdier, du vil oprette mapper baseret på;
2. Klik derefter på knappen for at angive den destinationsmappe, du vil gemme mapperne;
3. Endelig skal du klikke OK .
   

Resultat:

Kutools vil behandle listen fra dit ark og oprette en mappe for hver post i den angivne destination. Naviger til destinationsmappen for at se resultatet. Se skærmbillede:

Opret mapper fra en liste ved at bruge VBA-kode

Brug af VBA-kode i Excel kan forvandle den kedelige opgave med at oprette mapper fra en liste til en hurtig, automatiseret proces. Dette afsnit viser dig, hvordan du anvender VBA-kode til at generere mapper.

Trin 1: Åbn VBA-moduleditoren og kopier koden

1. Hold nede i ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
   VBA-kode: Opret mapper baseret på en liste over celleværdier

   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
   

Trin 2: Udfør koden

1. Når du har indsat denne kode, skal du trykke på F5 nøglen til at køre denne kode. I promptboksen skal du vælge de celleværdier, du vil oprette mapper fra. Og klik derefter OK.
   
2. Derefter i det følgende Vælg destinationsmappen vinduet, skal du angive destinationsstien til output af de oprettede mapper. Og klik derefter OK knap, se skærmbillede:
   

Resultat:

Når du har udført VBA-koden, skal du gå over til destinationsbiblioteket for at se resultatet. Der finder du de nyoprettede mapper, som hver svarer til et element fra din Excel-liste. se skærmbillede:

Opret mapper og undermapper baseret på celleværdier med VBA-kode

Nogle gange kan du finde dig selv i en situation, hvor du skal generere ikke bare mapper, men også deres tilsvarende undermapper, alt sammen baseret på dataene i Excel-celler. For at nå denne opgave vil jeg her introducere en VBA-kode.

Trin 1: Forbered dataene

Først skal du indtaste dataene som følgende skærmbillede, placere hovedmappenavnene i den første kolonne og navnene til undermapperne i den anden kolonne.

Trin 2: Åbn VBA-moduleditoren og kopier koden

1. Hold nede i ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
   VBA-kode: Opret mapper og undermapper baseret celleværdier

   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
   

Trin 3: Udfør koden

1. Når du har indsat denne kode, skal du trykke på F5 nøglen til at køre denne kode. I promptboksen skal du vælge de celleværdier, du vil oprette mapper fra. Og klik derefter OK.
   
2. Angiv destinationsstien til output af de oprettede mapper i det følgende åbnede vindue. Og klik derefter OK knap, se skærmbillede:
   

Resultat:

Når du har udført VBA-koden, skal du gå til destinationsbiblioteket for at se resultatet. Du vil opdage, at mapperne og deres respektive undermapper, som dikteret af celleværdierne, er blevet oprettet som følgende skærmbillede:

Relaterede artikler: