Creación de carpeta según lista EXCEL
Resuelto/Cerrado
Hola,
He hecho algunas búsquedas en Google, pero sin éxito.
En resumen:
Tengo una hoja de Excel con una sola columna y alrededor de 150 filas, en cada celda hay un nombre.
Y me gustaría crear una carpeta por cada celda con el nombre del contenido de la celda, es decir, unas 150 celdas.
Si alguien tuviera una idea para automatizar todo esto, se lo agradecería mucho.
Gracias
He hecho algunas búsquedas en Google, pero sin éxito.
En resumen:
Tengo una hoja de Excel con una sola columna y alrededor de 150 filas, en cada celda hay un nombre.
Y me gustaría crear una carpeta por cada celda con el nombre del contenido de la celda, es decir, unas 150 celdas.
Si alguien tuviera una idea para automatizar todo esto, se lo agradecería mucho.
Gracias
Configuración: Windows Vista Firefox 3.0.3
7 respuestas
-
¡Gracias, funciona!
Solo hay que hacer una pequeña modificación:
Sub crear_dossiers()
On Error Resume Next
Dim lig As Byte, cptr As Byte
lig = Range("A65536").End(xlUp).Row
For cptr = 1 To lig
MkDir "C:\dossiers"
MkDir "C:\dossiers\" & Cells(cptr, 1)
Next
End Sub
De lo contrario, no sabía dónde crear los directorios.
