Crear directorios que cambien segun fecha automáticamente para guardar reportes

En la mayoría de los casos requerimos crear una carpeta para poder guardar los reportes que tenemos automatizados.
El problema es que cuando cambia el mes o el año tenemos la necesidad de crear una nueva carpeta y redireccionar la macro que tenemos automatizada.

El problema es cuando este proceso involucra más reportes y se hace tedioso hacer esta tarea mes a mes (año tras año)


Para este caso podemos agregar a la macro que tengamos un código para que antes de guardar el archivo revise si ya está la carpeta, si no está entonces podemos crearla:


Código:
   

 MkDir "C:\Reportes\"
 MkDir "C:\Reportes\" & Format(Now, "YYYY")
 MkDir "C:\Reportes\" & Format(Now, "YYYY") "\" & Format(Now, "MMMM")

Ruta = "C:\Reportes\" & Format(Now, "YYYY") "\" & Format(Now, "MMMM")

   
Ruta es la variable que tendrá el directorio que si no existe se va a crear y es donde se guardarán los archivos creados previamente!

Si este código lo haces en un Sub independiente no olvides declarar Ruta como Pública

Espero y sea de utilidad!! :)

Suscríbete a mi canal: http://bit.ly/1KgurfF

Sigueme en Twitter https://twitter.com/RaduNordenhulk
Agregame en Facebook: http://on.fb.me/1oFUXVL
Sigue mis publicaciones en mi blog: http://radunordenhulk.blogspot.com