Recimo, da imate seznam imen osebja znotraj obsega delovnih listov in želite za vsakega ustvariti posamezne mape za shranjevanje njihovih informacij. Ročno ustvarjanje posamezne mape je lahko zamudno. Vendar pa obstajajo učinkovite metode za pospešitev tega procesa. V tem priročniku bom delil več pristopov za hitro ustvarjanje map na podlagi navedenih vrednosti celic.

Ustvarite mape na podlagi vrednosti celic

• Z uporabo ukaza MD in Beležnice
• Z uporabo zmogljive funkcije – Kutools za Excel
• Z uporabo kode VBA

Ustvarite mape in podmape na podlagi vrednosti celic s kodo VBA

Ustvarite mape na podlagi vrednosti celic

V tem razdelku bomo podrobno raziskali različne metode in ponudili obsežna navodila po korakih za hitro in enostavno ustvarjanje map na podlagi seznama vrednosti celic.

Ustvarite mape s seznama z uporabo ukaza MD in Beležnice

Pretvarjanje seznama iz Excela v mape z uporabo ukaza MD in Beležnice je pameten trik, ki združuje preprosto paketno skriptiranje z Excelovo spretnostjo za organiziranje stvari. Ta metoda je odlična za hitro izdelavo številnih map, ne da bi morali vse narediti ročno. Tukaj je vodnik po korakih za dokončanje te naloge:

1. korak: Uporabite ukaz MD za ustvarjanje formul

Kopirajte ali vnesite naslednjo formulo v prazno celico poleg vrednosti prve celice (na primer B1) in nato povlecite ročico za polnjenje navzdol, da uporabite formulo za vse elemente seznama.

="MD "&A1

2. korak: Kopirajte in prilepite formule v datoteko Beležnice

1. Pritisnite Ctrl + C za kopiranje celic s formulo ukaza MD.
2. Odprto Beležnica in pritisnite Ctrl + V da prilepite ukaze v novo datoteko.
   

3. korak: shranite datoteko beležnice kot datoteko .bat

klik Shrani kot Iz file zavihek v Beležnici, v Shrani kot pogovornem oknu izberite imenik, v katerem želite ustvariti več map, in nato poimenujte to datoteko z a . Bat razširitev. Na koncu kliknite Shrani . Oglejte si posnetek zaslona:

4. korak: Dvokliknite datoteko .bat, da ustvarite več map

1. Zaprite datoteko Beležnice in se pomaknite do mape, v katero ste prej shranili datoteko .bat.
2. Zdaj pa bodite priča čarovniji: dvokliknite datoteko in videli boste, da se ustvarja več map hkrati. Oglejte si spodnjo predstavitev:
   

Ustvarite mape s seznama z uporabo zmogljivega orodja – Kutools for Excel

Z močnimi Kutools za ExcelJe Ustvari mape iz vsebine celice funkcijo, lahko zdaj preprosto in hitro ustvarite mape iz Excelovega seznama. Vendar se ne ustavi le pri osnovnih mapah; Kutools vam omogoča tudi ustvarjanje kompleksnih struktur z večnivojskimi podmapami naenkrat. Le nekaj preprostih korakov lahko pretvori podatke iz Excela v organiziran sistem map, kar bistveno poveča vašo produktivnost.

Po namestitvi Kutools za Excel, Kliknite Kutools Plus > Uvozno-izvoznih > Ustvari mape iz vsebine celice da odprete Ustvari mape iz vsebine celice pogovorno okno:

1. Izberite vrednosti celic, na podlagi katerih želite ustvariti mape;
2. Nato kliknite na gumb za določitev ciljne mape, v katero želite shraniti mape;
3. Nazadnje kliknite OK gumb.
   

Rezultat:

Kutools bo obdelal seznam iz vašega lista in ustvaril mapo za vsak vnos v določenem cilju. Pomaknite se do ciljne mape, da vidite rezultat. Oglejte si posnetek zaslona:

Ustvarite mape s seznama z uporabo kode VBA

Uporaba kode VBA v Excelu lahko spremeni dolgočasno nalogo ustvarjanja map s seznama v hiter, avtomatiziran postopek. Ta razdelek vam bo pokazal, kako uporabiti kodo VBA za ustvarjanje map.

1. korak: Odprite urejevalnik modulov VBA in kopirajte kodo

1. Drži dol ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
   Koda VBA: ustvarite mape na podlagi seznama vrednosti celic

   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. korak: Izvedite kodo

1. Po lepljenju te kode pritisnite F5 ključ za zagon te kode. V pozivnem polju izberite vrednosti celic, iz katerih želite ustvariti mape. In nato kliknite OK.
   
2. Nato v naslednjem Izberite ciljno mapo podajte ciljno pot za izhod ustvarjenih map. In nato kliknite OK gumb, glej posnetek zaslona:
   

Rezultat:

Po izvedbi kode VBA se pomaknite v ciljni imenik in si oglejte rezultat. Tam boste našli novo ustvarjene mape, od katerih vsaka ustreza elementu z vašega Excelovega seznama. glej posnetek zaslona:

Ustvarite mape in podmape na podlagi vrednosti celic s kodo VBA

Občasno se lahko znajdete v situaciji, ko morate ustvariti ne samo mape, ampak tudi njihove ustrezne podmape, vse na podlagi podatkov znotraj Excelovih celic. Za dosego te naloge bom tukaj predstavil kodo VBA.

1. korak: Pripravite podatke

Najprej morate vnesti podatke, kot je prikazano na spodnji sliki zaslona, ​​imena glavnih map postavite v prvi stolpec in imena podmap v drugi stolpec.

2. korak: Odprite urejevalnik modulov VBA in kopirajte kodo

1. Drži dol ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
   Koda VBA: ustvarite mape in podmape na podlagi vrednosti celic

   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. korak: Izvedite kodo

1. Po lepljenju te kode pritisnite F5 ključ za zagon te kode. V pozivnem polju izberite vrednosti celic, iz katerih želite ustvariti mape. In nato kliknite OK.
   
2. V naslednjem pojavnem oknu določite ciljno pot za izhod ustvarjenih map. In nato kliknite OK gumb, glej posnetek zaslona:
   

Rezultat:

Po izvedbi kode VBA pojdite v ciljni imenik in si oglejte rezultat. Ugotovili boste, da so bile mape in njihove ustrezne podmape, kot narekujejo vrednosti celic, uspešno ustvarjene, kot je prikazano na naslednjem posnetku zaslona:

Sorodni članki: