Macro para crear carpetas desde archivo Excel

Hoy os traigo una macro para crear carpetas desde un archivo Excel.  ¿Cuántas veces has necesitado crear decenas de carpetas para tu trabajo o para organizarte tus datos?.

El sistema no puede ser más simple. Añadimos la lista de nombres de las carpetas en la columna A de nuestro archivo Excel, pulsamos el botón «Generar Carpetas» y le decimos dónde queremos que nos las genere.

Antes de nada, doy por hecho que teneis los conocimientos necesarios para activar el modo desarrollador en Excel para poder, entre otras cosas, añadir vuestras propias macros.

En cualquier caso teneis mucha información en Google o directamente en la web de Microsoft.

El código a añdir es el siguiente:

Sub CrearCarpetas()
Dim sum As Integer

'lanzamos el explorador de Windows para elegir una carpeta
Set dir_Archivo = Application.FileDialog(msoFileDialogFolderPicker)
dir_Archivo.Show
ruta = dir_Archivo.SelectedItems(1)
 
Range("A1").Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
sum = sum + 1
Loop
MsgBox sum & " carpetas creadas correctamente "
End Sub

La única exigencia para que no tengamos problemas es complir con 2 condiciones :

• No puede haber ninguna celda vacía entre la lista de carpetas a generar
• No tiene que haber nombres repetidos entre la lista

En caso de que ocurra alguna condición anterior, la macro se detendrá mostrando un error.

 

Por otro lado puede ser que, una vez creadas las carpetas y finalizado nuestro trabajo, nos encontremos que parte de las carpetas que hemos creado han quedado vacías y necesitamos eliminarlas.

Lógicamente no vamos a ir entrando en cada carpeta, una a una, y eliminando las vacías. Además, Windows no nos ofrece ninguna manera de poder ordenarlas o localizarlas desde su propio explorador.

Quizás más adelante nos lo ofrezca.

Mientras esperamos, aquí os dejo el complemento perfecto a la macro para crear carpetas desde un archivo Excel, un «eliminador de carpetas vacias» que buscará estas carpetas donde le digamos y las eliminará rápidamente.

Aqui teneis el link  para descargar el archivo.

El funcionamiento es muy simple:

Abrimos el archivo y seleccionamos el directorio donde queremos buscar las carpetas vacías.

Pulsamos el botón «SCAN FOLDERS» y , una vez que ha finalizado el escaneo del directorio nos mostrará las carpetas vacías en rojo.

Ya sólo nos queda pulsar el botón «DELETE FOLDERS» para que borre las carpetas vacías.

Y ya está…

 

Además, si no queréis crear vuestro propio archivo Excel para generar múltiples carpetas en Windows, aquí os dejo el link para que os lo descarguéis. Recordad que la lista de nombres de  carpeta se ha de escribir en la columna A.

Espero que estos 2 programillas os sean de utilidad. Poco a poco iré añadiendo más.

Hasta pronto!