Come creare cartelle da un foglio Excel

I fogli Excel possono automatizzare la creazione di molte cartelle. Un metodo usa uno script con intervalli di dati e il comando batch md. Un altro usa una macro tramite la funzione MkDir, componente di Microsoft Excel VBA: offre flessibilità ed è meno dispendioso in tempo. Includete solo nomi cartella validi nel foglio. I nomi non devono contenere virgolette, né i caratteri , / : * ? " < > |.

Usando un file batch (.bat)

Passo 1

Disponete i nomi delle cartelle in una singola colonna. Cliccate l'intestazione della colonna e digitate NOMICARTELLE nel campo nome accanto alla barra delle formule.

Passo 2

Aggiungete una colonna vuota a sinistra della colonna "NOMICARTELLE" cliccando destro l'intestazione > Inserisci.

Passo 3

Evidenziate la prima cella della colonna vuota. Inserite nella barra delle formule il testo seguente e copiatelo nelle altre celle vuote:

="md "&NOMICARTELLE

Passo 4

Aprite il vostro editor di testo semplice (Blocco note) e create un documento vuoto. Copiate e incollate il codice sotto all'inizio del file. Sostituite C:\Temp col percorso completo della directory dove volete creare le cartelle. Esempio: per cartelle in "Canzoni" nel drive D, usate D:\Canzoni.

@echo off
cd "C:\Temp"

Passo 5

Tornate al foglio Excel. Clic destro sull'intestazione della colonna con le formule "md" > Copia. Tornate all'editor di testo e incollate i valori alla fine del file. Il file dovrebbe assomigliare a:

@echo off
cd "c:\Temp"
md nomecartella1
md nomecartella2
..

Passo 6

Salvate il file sul Desktop come CreaCartelle.bat. Andate sul Desktop ed eseguite il file batch col doppio clic. Le cartelle sono ora pronte.

Usando una macro VBA

Passo 1

Aprite il foglio Excel. Tenete premuto Alt e premete F8 per aprire la finestra Macro.

Passo 2

Inserite CreaCartelle sotto "Nome macro" e cliccate Crea. Si apre l'editor VBA.

Passo 3

Copiate e incollate la macro seguente nell'editor:

Sub CreaCartelle()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
    r = 1
    Do While r <= maxRows
        If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
            MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
            On Error Resume Next
        End If
        r = r + 1
    Loop
Next c
End Sub

Passo 4

Salvate il file come cartella di lavoro con macro: File > Salva con nome > scegliete Cartella di lavoro Excel con macro (*.xlsm) > Salva.

Passo 5

Evidenziate le celle coi nomi cartelle. Tenete Alt + premete F8 per aprire Macro. Doppio clic su CreaCartelle. Le cartelle sono ora pronte.

Suggerimento

La macro crea cartelle nella stessa directory del foglio attivo. Per creare nella directory del file con macro, sostituite tutte le occorrenze di ActiveWorkbook nel codice con ThisWorkbook.