Crea più cartelle e sottocartelle da un elenco di dati in Excel

Immagina di avere un elenco di nomi del personale in un intervallo di celle di un foglio di lavoro e di voler creare una cartella dedicata per ciascuno, in cui archiviare le relative informazioni. Creare manualmente ogni cartella potrebbe richiedere molto tempo, ma esistono metodi efficienti per velocizzare questa operazione. In questa guida ti mostrerò diversi approcci per generare rapidamente cartelle basate sui valori presenti nelle celle.

Crea cartelle in base ai valori delle celle

• Utilizzando il comando MD e il Blocco Note
• Utilizzando una potente funzionalità – Kutools per Excel
• Utilizzando codice VBA

Crea cartelle e sottocartelle in base ai valori delle celle con il codice VBA

Crea cartelle in base ai valori delle celle

In questa sezione esploreremo vari metodi in dettaglio, offrendoti istruzioni complete passo dopo passo per creare cartelle in modo rapido e senza sforzo a partire da un elenco di valori presenti nelle celle.

Crea cartelle da un elenco utilizzando il comando MD e Blocco note

Trasformare un elenco proveniente da Excel in cartelle utilizzando il comando MD e il Blocco note è un trucco intelligente che unisce semplici script batch alla capacità di Excel di preservare l’ordine degli elementi. Questo metodo permette di creare rapidamente numerose cartelle, evitando la noiosa digitazione manuale. Ecco una guida passo dopo passo per portare a termine l’operazione:

Passaggio 1: usa il comando MD per Crea formula

Copia o inserisci la seguente formula in una cella vuota accanto al primo valore (ad esempio, B1), quindi trascina il quadratino di riempimento verso il basso per applicarla a tutti gli elementi dell’elenco.

="MD "&A1

Passaggio 2: copia e incolla le formule in un file di Blocco note

1. Premere «Ctrl + C» per copiare le celle che contengono la formula del comando MD.
2. Apri il Blocco Note e premi «Ctrl + V» per incollare i comandi in un file appena creato.
   

Passaggio 3: salva il file di Blocco note come file .bat

Fai clic su **«Salva con nome»** nella scheda **«File»** di Blocco note. Nella finestra di dialogo **«Salva con nome»**, seleziona la directory in cui desideri creare più cartelle, assegna al file un nome con estensione **.bat** e infine fai clic su **«Salva»**. Vedi screenshot:

Passaggio 4: fai doppio clic sul file .bat per generare più cartelle

1. Chiudere il file di Blocco note e passare alla cartella in cui è stato precedentemente salvato il file .bat.
2. Ora, preparati a vivere la magia: fai doppio clic sul file e vedrai crearsi simultaneamente più cartelle. Guarda la demo qui sotto:
   

Crea cartelle da un elenco utilizzando uno strumento potente – Kutools per Excel

Grazie alla potente funzione «Crea cartella in base all’intervallo» di Kutools per Excel, puoi creare facilmente e rapidamente cartelle direttamente da un elenco Excel. E non si ferma alle sole cartelle di base: Kutools ti permette anche di generare strutture complesse con sottocartelle multilivello in un’unica operazione. Con pochi semplici passaggi, i tuoi dati Excel si trasformano in un sistema di cartelle perfettamente organizzato, aumentando notevolmente la tua produttività.

Dopo aver installato Kutools per Excel, fai clic su «KUTOOLS PLUS» > «Importa/Esporta» > «Crea Cartella in base all'Intervallo» per aprire la finestra di dialogo Crea Cartella in base all'Intervallo:

1. Seleziona i valori delle celle in base ai quali desideri creare le cartelle;
2. Quindi, fai clic sul pulsante per specificare la cartella di destinazione in cui salvare le cartelle;
3. Infine, fai clic sul pulsante OK.
   

Risultato:

Kutools elaborerà l’elenco dal tuo foglio e creerà una cartella per ogni voce nella destinazione indicata. Passa alla cartella di destinazione per visualizzare il risultato. Vedi screenshot:

Crea cartelle da un elenco utilizzando il codice VBA

L’utilizzo del codice VBA in Excel trasforma il noioso compito di creare cartelle da un elenco in un processo rapido e automatizzato. In questa sezione scoprirai come applicare il codice VBA per generare cartelle in modo semplice ed efficiente.

Passaggio 1: apri l’editor del modulo VBA e copia il codice

1. Premi contemporaneamente i tasti «ALT + F11» in Excel per aprire la finestra di «Microsoft Visual Basic for Applications».
2. Fai clic su «Inserisci» > «Modulo» e incolla il seguente codice nella finestra del modulo.
   Codice VBA: crea cartelle in base a un elenco di valori di cella

   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
   

Passaggio 2: esegui il codice

1. Dopo aver incollato questo codice, premi il tasto F5 per eseguirlo. Nella finestra di dialogo che appare, seleziona i valori delle celle da cui desideri creare le cartelle e fai clic su OK.
   
2. Successivamente, nella finestra **«Seleziona la cartella di destinazione»**, indica il percorso in cui desideri creare le cartelle e fai clic su **OK**. Vedi screenshot:
   

Risultato:

Dopo aver eseguito il codice VBA, vai alla directory di destinazione per visualizzare il risultato: troverai le nuove cartelle create, ognuna corrispondente a un elemento del tuo elenco Excel. Vedi screenshot:

Crea cartelle e sottocartelle in base ai valori delle celle con il codice VBA

A volte potresti trovarti nella situazione di dover creare non solo cartelle, ma anche le relative sottocartelle, il tutto basato sui dati contenuti nelle celle di Excel. Per portare a termine questo compito, ti presenterò un codice VBA.

Passaggio 1: prepara i dati

Innanzitutto, inserisci i dati come mostrato nello screenshot seguente: colloca i nomi delle cartelle principali nella prima colonna e quelli delle sottocartelle nella seconda colonna.

Passaggio 2: apri l’editor del modulo VBA e copia il codice

1. Premi contemporaneamente i tasti «ALT + F11» in Excel per aprire la finestra di «Microsoft Visual Basic for Applications».
2. Fai clic su «Inserisci» > «Modulo» e incolla il seguente codice nella finestra del modulo.
   Codice VBA: crea cartelle e sottocartelle in base ai valori delle celle

   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
   

Passaggio 3: esegui il codice

1. Dopo aver incollato questo codice, premi il tasto F5 per eseguirlo. Nella finestra di dialogo che appare, seleziona i valori delle celle da cui desideri creare le cartelle e fai clic su OK.
   
2. Nella finestra visualizzata, indica il percorso di destinazione in cui creare le cartelle, quindi fai clic sul pulsante OK. Vedi screenshot:
   

Risultato:

Dopo aver eseguito il codice VBA, vai alla directory di destinazione per visualizzare il risultato: troverai le cartelle e le relative sottocartelle, definite dai valori delle celle, create correttamente, come illustrato nello screenshot seguente.

Articoli correlati: