Anta att du har en lista med personalnamn inom ett kalkylbladsintervall och strävar efter att skapa individuella mappar för var och en för att lagra deras information. Att skapa varje mapp manuellt kan vara tidskrävande. Det finns dock effektiva metoder för att påskynda denna process. I den här guiden kommer jag att dela flera metoder för att snabbt generera mappar baserat på de angivna cellvärdena.

Skapa mappar baserat på cellvärden

• Genom att använda MD-kommandot och Anteckningar
• Genom att använda en kraftfull funktion - Kutools för Excel
• Genom att använda VBA-kod

Skapa mappar och undermappar baserat på cellvärden med VBA-kod

Skapa mappar baserat på cellvärden

I det här avsnittet kommer vi att utforska olika metoder i detalj, och erbjuda omfattande steg-för-steg-instruktioner för att snabbt och enkelt skapa mappar baserade på en lista med cellvärden.

Skapa mappar från en lista med MD-kommandot och Anteckningar

Att förvandla en lista från Excel till mappar med MD-kommandot och Notepad är ett smart knep som blandar enkel batchscripting med Excels förmåga att hålla saker organiserade. Den här metoden är utmärkt för att göra massor av mappar snabbt, utan att behöva göra allt för hand. Här är en steg-för-steg-guide för att utföra denna uppgift:

Steg 1: Använd kommandot MD för att skapa formler

Kopiera eller skriv in följande formel i en tom cell bredvid ditt första cellvärde (till exempel B1) och dra sedan fyllningshandtaget nedåt för att tillämpa formeln på alla dina listobjekt.

="MD "&A1

Steg 2: Kopiera och klistra in formlerna i en Anteckningar-fil

1. Presse Ctrl + C för att kopiera cellerna med MD-kommandoformeln.
2. Öppen Anteckningar och tryck Ctrl + V för att klistra in kommandona i en ny fil.
   

Steg 3: Spara Notepad-filen som .bat-fil

Klicka Spara som från Fil fliken i Anteckningar, i Spara som dialogrutan, välj en katalog där du vill skapa flera mappar och ge den här filen ett namn med en . Bat förlängning. Klicka slutligen Save knapp. Se skärmdump:

Steg 4: Dubbelklicka på .bat-filen för att skapa flera mappar

1. Stäng Notepad-filen, navigera till mappen där du tidigare sparade .bat-filen.
2. Bevittna nu magin: dubbelklicka på filen så kommer du att se flera mappar skapas samtidigt. Se demon nedan:
   

Skapa mappar från en lista med hjälp av kraftfullt verktyg – Kutools för Excel

Med den kraftfulla Kutools för ExcelÄr Skapa mappar från cellinnehåll funktionen kan du nu enkelt och snabbt skapa mappar från en Excel-lista. Men det stannar inte bara vid grundläggande mappar; Kutools låter dig också skapa komplexa strukturer med undermappar på flera nivåer på en gång. Bara några enkla steg kan omvandla data från Excel till ett organiserat mappsystem, vilket avsevärt ökar din produktivitet.

När du har installerat Kutools för Excel, Klicka Kutools Plus > Import Export > Skapa mappar från cellinnehåll att öppna Skapa mappar från cellinnehåll dialog ruta:

1. Välj de cellvärden du vill skapa mappar baserat på;
2. Klicka sedan på knappen för att ange destinationsmappen du vill spara mapparna;
3. Slutligen klickar du på OK knapp.
   

Resultat:

Kutools kommer att bearbeta listan från ditt ark och skapa en mapp för varje post i den angivna destinationen. Navigera till målmappen för att se resultatet. Se skärmdump:

Skapa mappar från en lista med hjälp av VBA-kod

Att använda VBA-kod i Excel kan förvandla den tråkiga uppgiften att skapa mappar från en lista till en snabb, automatiserad process. Det här avsnittet visar hur du använder VBA-kod för att skapa mappar.

Steg 1: Öppna VBA-modulredigeraren och kopiera koden

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
   VBA-kod: Skapa mappar baserat på en lista med cellvärden

   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
   

Steg 2: Kör koden

1. När du har klistrat in den här koden, tryck på F5 nyckel för att köra den här koden. I uppmaningsrutan väljer du cellvärdena som du vill skapa mappar från. Och klicka sedan OK.
   
2. Sedan i det följande Välj målmapp fönstret, ange destinationssökvägen för att mata ut de skapade mapparna. Och klicka sedan OK knapp, se skärmdump:
   

Resultat:

Efter att ha kört VBA-koden, gå över till destinationskatalogen för att se resultatet. Där hittar du de nyskapade mapparna, som var och en motsvarar ett objekt från din Excel-lista. se skärmdump:

Skapa mappar och undermappar baserat på cellvärden med VBA-kod

Ibland kan du hamna i en situation där du behöver generera inte bara mappar utan också deras motsvarande undermappar, allt baserat på data i Excel-celler. För att uppnå denna uppgift kommer jag här att introducera en VBA-kod.

Steg 1: Förbered data

Först bör du ange data enligt följande skärmdump, placera huvudmappnamnen i den första kolumnen och namnen för undermapparna i den andra kolumnen.

Steg 2: Öppna VBA-modulredigeraren och kopiera koden

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
   VBA-kod: Skapa mappar och undermappar baserade cellvärden

   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
   

Steg 3: Kör koden

1. När du har klistrat in den här koden, tryck på F5 nyckel för att köra den här koden. I uppmaningsrutan väljer du cellvärdena som du vill skapa mappar från. Och klicka sedan OK.
   
2. I följande utfällda fönster, ange destinationssökvägen för att mata ut de skapade mapparna. Och klicka sedan OK knapp, se skärmdump:
   

Resultat:

Efter att ha kört VBA-koden, gå till destinationskatalogen för att se resultatet. Du kommer att upptäcka att mapparna och deras respektive undermappar, som dikteras av cellvärdena, har skapats framgångsrikt enligt följande skärmdump:

Relaterade artiklar: