Tegyük fel, hogy van egy listája az alkalmazottak nevéről egy munkalap-tartományon belül, és célja, hogy mindegyikhez külön mappát hozzon létre információik tárolására. Az egyes mappák manuális létrehozása időigényes lehet. Vannak azonban hatékony módszerek ennek a folyamatnak a felgyorsítására. Ebben az útmutatóban számos megközelítést ismertetek a mappák gyors létrehozására a megadott cellaértékek alapján.

Hozzon létre mappákat a cellaértékek alapján

• Az MD parancs és a Jegyzettömb használatával
• Egy hatékony funkció használatával – Kutools for Excel
• VBA kód használatával

Hozzon létre mappákat és almappákat a cellaértékek alapján VBA-kóddal

Hozzon létre mappákat a cellaértékek alapján

Ebben a részben részletesen megvizsgáljuk a különféle módszereket, és átfogó, lépésről lépésre szóló utasításokat kínálunk, amelyek segítségével gyorsan és könnyedén hozhat létre mappákat a cellaértékek listája alapján.

Hozzon létre mappákat egy listából az MD parancs és a Jegyzettömb használatával

Az Excel listáinak mappákká alakítása az MD paranccsal és a Jegyzettömbbel egy intelligens trükk, amely az egyszerű kötegelt parancsfájlokat ötvözi az Excel képességeivel a dolgok rendszerezésére. Ez a módszer nagyszerű arra, hogy gyorsan készítsen sok mappát anélkül, hogy kézzel kellene csinálni. Íme egy lépésenkénti útmutató a feladat végrehajtásához:

1. lépés: Használja az MD parancsot képletek létrehozásához

Másolja vagy írja be a következő képletet egy üres cellába az első cellaérték mellett (például B1), majd húzza le a kitöltő fogantyút, hogy a képletet az összes listaelemre alkalmazza.

="MD "&A1

2. lépés: Másolja ki és illessze be a képleteket egy Jegyzettömb fájlba

1. nyomja meg Ctrl + C a cellák másolásához az MD parancsképlettel.
2. Nyisd ki Jegyzettömb és nyomja meg az Ctrl + V a parancsok beillesztéséhez egy új fájlba.
   

3. lépés: Mentse el a Jegyzettömb fájlt .bat fájlként

Kattints Mentés tól filé fülön a Jegyzettömbben, a Mentés párbeszédpanelen válasszon ki egy könyvtárat, ahol több mappát szeretne létrehozni, majd adjon nevet a fájlnak a gombbal . Bat kiterjesztés. Végül kattintson Megtakarítás gomb. Lásd a képernyőképet:

4. lépés: Kattintson duplán a .bat fájlra több mappa létrehozásához

1. Zárja be a Jegyzettömb fájlt, és keresse meg azt a mappát, amelyben korábban elmentette a .bat fájlt.
2. Most legyen szemtanúja a varázslatnak: kattintson duplán a fájlra, és látni fogja, hogy egyszerre több mappa jön létre. Tekintse meg az alábbi bemutatót:
   

Hozzon létre mappákat egy listából egy hatékony eszközzel - Kutools for Excel

A hatalmasokkal Kutools az Excel számára'S Hozzon létre mappákat a cella tartalmából funkcióval most egyszerűen és gyorsan hozhat létre mappákat egy Excel listából. De ez nem áll meg csak az alapvető mappákban; A Kutools lehetővé teszi összetett struktúrák létrehozását is többszintű almappákkal egy lépésben. Néhány egyszerű lépéssel az Excel adatait rendezett mapparendszerré alakíthatja, jelentősen növelve a termelékenységet.

Telepítése után Kutools az Excel számára, Kérjük, kattintson Kutools Plus > Import Export > Hozzon létre mappákat a cella tartalmából megnyitni Hozzon létre mappákat a cella tartalmából párbeszédablak:

1. Válassza ki a cellaértékeket, amelyek alapján mappákat szeretne létrehozni;
2. Ezután kattintson a gombbal adja meg a mappákat menteni kívánt célmappát;
3. Végül kattintson a gombra OK gombot.
   

Eredmény:

A Kutools feldolgozza a listát az Ön lapjáról, és létrehoz egy mappát minden bejegyzéshez a megadott célhelyen. Az eredmény megtekintéséhez navigáljon a célmappához. Lásd a képernyőképet:

Hozzon létre mappákat egy listából VBA kóddal

A VBA-kód Excelben való használata gyors, automatizált folyamattá alakíthatja át a listából való mappák létrehozásának fárasztó feladatát. Ez a rész bemutatja, hogyan alkalmazhat VBA-kódot mappák létrehozásához.

1. lépés: Nyissa meg a VBA-modul szerkesztőjét, és másolja ki a kódot

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
   VBA-kód: Mappák létrehozása cellaértékek listája alapján

   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
   

2. lépés: Hajtsa végre a kódot

1. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához. A prompt mezőben válassza ki azokat a cellaértékeket, amelyekből mappákat szeretne létrehozni. És akkor kattintson OK.
   
2. Majd a következőkben Válassza ki a célmappát ablakban adja meg a létrehozott mappák kimeneti útvonalát. És akkor kattintson OK gomb, lásd a képernyőképet:
   

Eredmény:

A VBA-kód végrehajtása után lépjen a célkönyvtárba az eredmény megtekintéséhez. Itt megtalálja az újonnan létrehozott mappákat, amelyek mindegyike megfelel az Excel-lista egy elemének. lásd a képernyőképet:

Hozzon létre mappákat és almappákat a cellaértékek alapján VBA-kóddal

Időnként előfordulhat, hogy nem csak mappákat kell létrehoznia, hanem a hozzájuk tartozó almappákat is, mindezt az Excel celláiban található adatok alapján. Ennek a feladatnak az eléréséhez itt bemutatok egy VBA kódot.

1. lépés: Készítse elő az adatokat

Először adja meg az adatokat az alábbi képernyőképen látható módon, helyezze el a fő mappaneveket az első oszlopba, és az almappák nevét a második oszlopba.

2. lépés: Nyissa meg a VBA-modul szerkesztőjét, és másolja ki a kódot

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
   VBA-kód: Mappák és almappák alapú cellaértékek létrehozása

   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
   

3. lépés: Hajtsa végre a kódot

1. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához. A prompt mezőben válassza ki azokat a cellaértékeket, amelyekből mappákat szeretne létrehozni. És akkor kattintson OK.
   
2. A következő felugró ablakban adja meg a létrehozott mappák kimeneti útvonalát. És akkor kattintson OK gomb, lásd a képernyőképet:
   

Eredmény:

A VBA-kód végrehajtása után lépjen a célkönyvtárba az eredmény megtekintéséhez. Azt fogja tapasztalni, hogy a mappák és a hozzájuk tartozó almappák a cellaértékek szerint sikeresen létrejöttek az alábbi képernyőképen látható módon:

Kapcsolódó cikkek: