Cómo Crear múltiples carpetas con un clic desde Excel con esta macro

Una de las mejores maneras de aceleran nuestras actividades es usando carpetas para almacenar nuestros archivos de forma organizada.

Aquí publicamos una macro para crear varias carpetas al tiempo. Contiene
en este caso el año en curso y todos los meses del año.
\2019
Enero
Febrero
Marzo
Abril
Mayo
Junio
Julio
Agosto
Septiembre
Octubre
Noviembre
Diciembre

La Macro lo que hace es crear la carpeta principal “\2019”
y luego dentro de ella crea todos los meses. Todo aun Clic

Este es el código que hace todo, incluya en un modulo
Sub btnCreaCarpetas_Haga_clic_en()
CreateFilePath [A1]
For j = 2 To 50
If Cells(j, “A”) = Empty Then
Exit Sub
End If
CreateFilePath [A1] & “\” & Cells(j, “A”)
Next j
End Sub
Function CreateFilePath(ByVal FPath As String) As Boolean
Dim fso As FileSystemObject
Dim ParsedPath As Variant
Dim TempPath As String
Dim i As Long
On Error Resume Next
Set fso = New FileSystemObject
ParsedPath = Split(FPath, “\”)
TempPath = ParsedPath(0)
For i = 1 To UBound(ParsedPath)
TempPath = TempPath & “\” & ParsedPath(i)
fso.CreateFolder (TempPath)
Next i
CreateFilePath = fso.FolderExists(FPath)
Set fso = Nothing

End Function

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *