He intentado ejecutar este script, pero me aparece "error 1004 en tiempo de ejecucion. Error definido por la aplicacion o el objeto".
Utilizo Excel 2007, probe guardándolo como xls, pero me aparece el mismo mensaje de error.
Lo que necesito es exactamente lo que ofrece esta macro, que recorra la columna indicada, hasta que encuentre una vacia, y vaya creando las carpetas con el contenido de cada celda si es que no ha sido creada previamente.
Las carpetas deben ser creadas en la misma ruta donde se encuentra el archivo excel.
Tambien probé con este codigo, pero solo me crea la primera carpeta(si es que el contenido de la celda no contiene espacios), no me recorre el resto de la columna.
Código:
Sub crea_carpetas()
Dim Nom_Carpeta As String
Nom_Carpeta = Range("A1").Value
If Nom_Carpeta = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Las carpetas no se crearán", vbOKOnly, "Error!!!"
Exit Sub
End If
Dim Nom_SubCarpeta As String
Nom_SubCarpeta = Range("A2").Value
If Nom_SubCarpeta = "" Then
MsgBox "Nombre Invalido." & Chr(13) & "Las carpetas no se crearán", vbOKOnly, "Error!!!"
Exit Sub
End If
On Local Error Resume Next
MkDir "C:\" & Nom_Carpeta
MkDir "C:\" & Nom_Carpeta & "\" & Nom_SubCarpeta
End Sub
Gracias por su tiempo.