Crear carpetas de manera masiva desde Excel

A nadie le gusta perder el tiempo.

Es por eso, que en este video te enseñaré a Automatizar el proceso de creación masiva de carpetas desde Excel. Además de que asignaremos hipervínculos a las carpetas.

¡TODO AUTOMATIZADO!

Para que aproveches mejor tu tiempo dejando las tareas manuales.

Ver video Crear carpetas de manera masiva desde Excel

Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.

Crear carpetas de manera automatizada

Crear carpetas de manera masiva desde Excel - exceleinfo
Figura 1. Crear carpetas de manera masiva desde Excel – exceleinfo

He visto el mismo video varias veces, donde usan el comando MD dentro de un archivo .BAT para crear carpetas de manera masiva. Hasta cierto punto, no es mala la solución.

El problema con ese método es que cada que quieres crear nuevas carpetas, hay que crear otro archivo .BAT, lo cual hace que ese proceso no sea productivo.

Te propongo hacerlo más rápido y más dinámico: usando macros.

Código VBA de la macro para crear carpetas y añadir links

Crear carpetas y añadir hipervínculos a los nombres - exceleinfo
Figura 2. Crear carpetas y añadir hipervínculos a los nombres – exceleinfo

Lo maravillo de las macros es que podemos automatizar prácticamente todo, para luego dejar que, con un sólo botonazo, se haga la magia.

La macro que propongo realiza lo siguente:

  • Muestra un Cuadro de diálogo para elegir la carpeta donde se crearán las demás carpetas.
  • Crear las carpetas con base en un rango de nombres.
  • A cada nombre se le asignará un hipervínculo para abrir su carpeta correspondiente.
'Mi canal de YouTube | youtube.com/user/sergioacamposh
'Mi Sitio | exceleinfo.com
'Descarga mi add-in | addin.exceleinfo.com
'Obtén la Certificación Excel Expert | exceleinfo.com/certificacion-mos

Sub CrearCarpetas()
Dim Ruta As String
Dim Nombre As Range

On Error Resume Next

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Selecciona la carpeta"
    .Show

    If .SelectedItems.Count = 0 Then
        MsgBox "Nada"
    Else
        Ruta = .SelectedItems(1)
        
        For Each Nombre In Selection
            MkDir Ruta & "" & Nombre.Value
            ActiveSheet.Hyperlinks.Add Anchor:=Nombre, Address:=Ruta & "" & Nombre.Value
        Next Nombre
        
    End If

End With

On Error GoTo 0

End Sub

Descarga el archivo para practicar

Crear carpetas masivamente – EXCELeINFO.zip

👇

⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top