¿Como puedo crear carpetas a partir de un archivo excel en mac?

Question

Necesito crear carpetas de un archivo excel, ya lo intete con este macro

Sub CarpetasCrear()

ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")

celda = InputBox("Primera celda")

Range(celda).Select

Do While ActiveCell.Value <> ""

MkDir (ruta & "/" & ActiveCell.Value)

ActiveCell.Offset(1, 0).Select

Loop

End Sub

pero me marca erro 75 o 76 en MkDir (ruta....

Alguien puede ayudarme por favor

De antemano Gracias

-

Answer 1

El error 75 o 76 en la función MkDir en VBA generalmente indica un problema con la ruta proporcionada o un conflicto con una carpeta ya existente. Para ayudarte mejor, necesito algunas aclaraciones:

1. Formato de la Ruta: ¿Estás utilizando barras invertidas (\) en lugar de barras normales (/) para la ruta? Las rutas de archivo en Windows suelen usar barras invertidas.
2. Existencia de Carpetas: ¿El macro intenta crear una carpeta que ya existe? MkDir no puede crear una carpeta si ya existe una con el mismo nombre en la misma ruta.
3. Permiso de Acceso: ¿Tienes los permisos necesarios para crear carpetas en la ubicación especificada?
4. Validación de Ruta: ¿Estás asegurándote de que la ruta ingresada es válida y accesible desde tu macro?

Basándome en estas preguntas, te sugiero modificar el macro de la siguiente manera para incluir validaciones y manejo de errores:

Sub CarpetasCrear()
    Dim ruta As String
    Dim celda As String
    Dim nombreCarpeta As String

    ruta = InputBox("Ingresa la ruta donde quieres crear las carpetas")
    celda = InputBox("Primera celda")

    ' Verificar si la ruta termina con una barra invertida
    If Right(ruta, 1) <> "\" Then
        ruta = ruta & "\"
    End If

    Range(celda).Select

    Do While ActiveCell.Value <> ""
        nombreCarpeta = ruta & ActiveCell.Value
        ' Verificar si la carpeta ya existe
        If Not Dir(nombreCarpeta, vbDirectory) = vbNullString Then
            MsgBox "La carpeta ya existe: " & nombreCarpeta
        Else
            On Error GoTo ErrHandler
            MkDir nombreCarpeta
            On Error GoTo 0
        End If
        ActiveCell.Offset(1, 0).Select
    Loop

    Exit Sub

ErrHandler:
    MsgBox "Error al crear la carpeta. Verifique la ruta y los permisos: " & Err.Description
End Sub

Este script modificado realiza algunas comprobaciones básicas y maneja los errores para darte más información sobre qué puede estar saliendo mal. Pruébalo y dime si sigues enfrentando problemas.

Si esta información te ha sido útil, recuerda aceptar la respuesta. Si necesitas más ayuda, no dudes en preguntar.