Să presupunem că aveți o listă de nume de personal într-un interval de foi de lucru și doriți să creați foldere individuale pentru fiecare pentru a-și stoca informațiile. Crearea manuală a fiecărui folder poate fi consumatoare de timp. Cu toate acestea, există metode eficiente pentru a accelera acest proces. În acest ghid, voi împărtăși mai multe abordări pentru a genera rapid foldere pe baza valorilor celulelor specificate.

Creați foldere pe baza valorilor celulelor

• Folosind comanda MD și Notepad
• Prin utilizarea unei funcții puternice - Kutools pentru Excel
• Prin utilizarea codului VBA

Creați foldere și subfoldere pe baza valorilor celulelor cu cod VBA

Creați foldere pe baza valorilor celulelor

În această secțiune, vom explora diverse metode în detaliu, oferind instrucțiuni pas cu pas complete pentru a crea rapid și fără efort foldere pe baza unei liste de valori ale celulelor.

Creați foldere dintr-o listă utilizând comanda MD și Notepad

Transformarea unei liste din Excel în foldere folosind comanda MD și Notepad este un truc inteligent care combină scriptarea ușoară în loturi cu talentul Excel pentru a menține lucrurile organizate. Această metodă este excelentă pentru a face o mulțime de foldere rapid, fără a fi nevoie să le faci pe toate manual. Iată un ghid pas cu pas pentru a îndeplini această sarcină:

Pasul 1: Utilizați comanda MD pentru a crea formule

Copiați sau introduceți următoarea formulă într-o celulă goală de lângă valoarea primei celule (B1, de exemplu), apoi trageți mânerul de umplere în jos pentru a aplica formula tuturor elementelor din listă.

="MD "&A1

Pasul 2: Copiați și lipiți formulele într-un fișier Notepad

1. Anunturi Ctrl + C pentru a copia celulele cu formula de comandă MD.
2. Operatii Deschise Notepad și apăsați Ctrl + V pentru a lipi comenzile într-un fișier nou.
   

Pasul 3: Salvați fișierul Notepad ca fișier .bat

Clic Salvează ca de la Fișier fila în Notepad, în Salvează ca caseta de dialog, alegeți un director în care doriți să creați mai multe foldere, apoi dați un nume pentru acest fișier cu a .băţ extensie. În cele din urmă, faceți clic Economisiți buton. Vedeți captura de ecran:

Pasul 4: Faceți dublu clic pe fișierul .bat pentru a genera mai multe foldere

1. Închideți fișierul Notepad, navigați la folderul în care salvați anterior fișierul .bat.
2. Acum, asistați la magia: faceți dublu clic pe fișier și veți vedea mai multe foldere create simultan. Vezi demo-ul de mai jos:
   

Creați foldere dintr-o listă folosind un instrument puternic - Kutools pentru Excel

Cu cei puternici Kutools pentru Excel'S Creați dosare din conținutul celulei funcția, acum puteți crea cu ușurință și rapid foldere dintr-o listă Excel. Dar nu se oprește doar la folderele de bază; Kutools vă permite, de asemenea, să creați structuri complexe cu subdosare cu mai multe niveluri dintr-o singură mișcare. Doar câțiva pași simpli pot transforma datele din Excel într-un sistem de foldere organizat, sporind semnificativ productivitatea.

După instalare Kutools pentru Excel, Vă rugăm să faceți clic Kutools Plus > Import Export > Creați dosare din conținutul celulei pentru a deschide Creați dosare din conținutul celulei căsuță de dialog:

1. Selectați valorile celulelor pe care doriți să creați foldere pe baza;
2. Apoi faceți clic pe butonul pentru a specifica folderul de destinație în care doriți să salvați folderele;
3. În cele din urmă, faceți clic pe OK butonul.
   

Rezultat:

Kutools va procesa lista din foaia dvs. și va crea un folder pentru fiecare intrare din destinația specificată. Navigați la folderul de destinație pentru a vedea rezultatul. Vedeți captura de ecran:

Creați foldere dintr-o listă folosind codul VBA

Utilizarea codului VBA în Excel poate transforma sarcina obositoare de a crea foldere dintr-o listă într-un proces rapid și automat. Această secțiune vă va arăta cum să aplicați codul VBA pentru a genera foldere.

Pasul 1: Deschideți editorul de module VBA și copiați codul

1. Țineți apăsată tasta ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
   Cod VBA: creați foldere pe baza unei liste de valori ale celulelor

   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
   

Pasul 2: Executați codul

1. După lipirea acestui cod, vă rugăm să apăsați F5 tasta pentru a rula acest cod. În caseta de solicitare, selectați valorile celulelor din care doriți să creați foldere. Și apoi, faceți clic OK.
   
2. Apoi, în cele ce urmează Selectați dosarul de destinație fereastră, specificați calea de destinație pentru a scoate folderele create. Și apoi, faceți clic OK buton, vezi captura de ecran:
   

Rezultat:

După ce executați codul VBA, mergeți la directorul de destinație pentru a vedea rezultatul. Acolo, veți găsi folderele nou create, fiecare corespunzând unui articol din lista dvs. Excel. vezi captura de ecran:

Creați foldere și subfoldere pe baza valorilor celulelor cu cod VBA

Ocazional, s-ar putea să vă aflați într-o situație în care trebuie să generați nu doar foldere, ci și subfolderele corespunzătoare, toate pe baza datelor din celulele Excel. Pentru a realiza această sarcină, aici, voi introduce un cod VBA.

Pasul 1: Pregătiți datele

Mai întâi, ar trebui să introduceți datele după cum se arată în următoarea captură de ecran, plasați numele folderelor principale în prima coloană și numele subdosarelor în a doua coloană.

Pasul 2: Deschideți editorul de module VBA și copiați codul

1. Țineți apăsată tasta ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
   Cod VBA: creați foldere și subfoldere pe baza valorilor celulelor

   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
   

Pasul 3: Executați codul

1. După lipirea acestui cod, vă rugăm să apăsați F5 tasta pentru a rula acest cod. În caseta de solicitare, selectați valorile celulelor din care doriți să creați foldere. Și apoi, faceți clic OK.
   
2. În următoarea fereastră afișată, specificați calea de destinație pentru a scoate folderele create. Și apoi, faceți clic OK buton, vezi captura de ecran:
   

Rezultat:

După executarea codului VBA, mergeți la directorul de destinație pentru a vedea rezultatul. Veți descoperi că folderele și subfolderele lor respective, așa cum sunt dictate de valorile celulei, au fost create cu succes după cum se arată în următoarea captură de ecran:

Articole pe aceeaşi temă: