¿Crear un listado de carpetas con dos subcarpetas desde Excel?
Necesito crear 360 carpetas en en una ruta específica del equipo, cada carpeta tiene un nombre específico y debe contener 2 subcarpetas las cuales se llaman igual para todas las carpetas.
El listado lo tengo en Excel donde en La columna A se encuentran los nombres de las carpetas, las subcarpetas se llaman "Documentos" y "Envíos"
De antemano gracias por su ayuda.
He encontrado códigos que generan esta opción pero solo lo hace para la primera carpeta la cual se encuentra en la celda A2, necesito que recorra toda la columna hata encontrar una celda vacía.
1 respuesta
Te dejo la macro que necesitas con el bucle para recorrer toda la col A.
Solo debes ajustar la ruta principal que se guarda en la variable 'ruta' o también la podés tener guardada en una celda.
Sub creaCarpetas() 'x Elsamatilde 'se recorre la col A de la hoja activa para crear la lista de carpetas ruta = "D:\carpetas Datos\Downloads" 'ubicación para las carpetas creadas subcarpe1 = "DOCUMENTOS" subcarpe2 = "ENVIOS" [A2].Select 'el proceso terminará cuando se encuentre una celda vacía en col A While ActiveCell <> "" carpeta = ruta & "/" & ActiveCell.Value 'controla posible error en la creación (nombre repetido, inválido para carpetas, etc) On Error GoTo sigo 'crea la carpeta MkDir carpeta 'crea las 2 subcarpetas MkDir carpeta & "/" & subcarpe1 MkDir carpeta & "/" & subcarpe2 On Error GoTo 0 sigo: 'pasa a la fila sgte ActiveCell.Offset(1, 0).Select Wend MsgBox "Fin del proceso." End Sub
Sdos y si el tema queda resuelto no olvides valorar la respuesta para darla por cerrado.
Apreciada Elsa, mil gracias era lo que necesitaba
¡Gracias!
Te desarrollo una macro que te evita CREAR 360 CARPETAS + SUBCARPETAS... ¿y solo la valoras como 'buena'?
