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

2 opiniones en “Cómo Crear múltiples carpetas con un clic desde Excel con esta macro”

  1. Verificador de Precios (Plantilla)
    LA USARE PARA VERIFICAR PRECIOS EN SALA DE VENTAS PARA QUE LOS CLIENTES TENGAN RAPIDO ACCESO A LA INFORMACION DE PRECIOS
    POR FAVOR COMO PUEDO DESCARGARLA?

Deja un comentario

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