Distinguir carpetas mensuales del explorador con una macro

Para subir hojas de calculo de Ingenieria civil
Reglas del Foro
Favor de usar el boton de Dar Gracias
En el mensaje del usuario al que deseas agradecer
En vez de escribir gracias repetidamente
Responder
tetriak
Usuario Principiante
Usuario Principiante
Mensajes: 13
Registrado: Mar Jul 14, 2009 4:55 am

Hola a todos, me gustaría preguntaros una cosa:

Tengo un libro1.xls con una serie de valores y una macro. Al ejecutar-la, esos valores se me copian a otro libro, el cual llamaré "NOMBRE_MES.xls".

Existen 12 libros "NOMBRE_MES.xls", uno para cada mes del año.

En el explorador de windows, he clasificado los años y los meses de esta manera:

- Carpetas de años: 2008, 2009, 2010, etc.

- Dentro de cada carpeta anual, las subcarpetas del mes correspondiente: 01 Enero, 02 Febrero, 03 Marzo, 04 Abril, etc.

Dentro de estas subcarpetas mensuales se hubica el libro "NOMBRE_MES.xls" con el nombre correspondiente de cada mes, es decir, enero.xls, febrero.xls, marzo.xls, abril.xls, etc.

La macro del libro1 no distingue el mes en el que estamos y ahora mismo

La he programado para abra una dirección concreta, en este caso, al archivo julio.xls, contenido en la carpeta 2009, para realice la copia de los valores contenidos en el libro1.xls. El libro1.xls siempre será el mismo.

El problema es cuando cambiemos de mes y de año.

No sé cómo hacer para que la macro detecte el mes y el año, y copie los valores en la carpeta y subcarpeta correspondiente.

¿Sabrías cómo hacerlo?

Muchísimas gracias
tetriak
Usuario Principiante
Usuario Principiante
Mensajes: 13
Registrado: Mar Jul 14, 2009 4:55 am

os pongo el codigo resumido

Lo que tendría que hacer es abrir el archivo correspondiente al mes actual, y copiar unos valores, cerrar y guardar.

Para abrir un archivo en concreto sería así:

Workbooks.Open Filename:= _
"C: / nueva carpeta / datos / 2009 / 07 julio / datos JULIO_2009.xls"

"en esta linia se copiaran unos valores y no he creído necesario poner la programacion, y luego:

ActiveWorkbook.Save
DisplayAlerts = False
ActiveWorkbook.Close

Ya esta, sólo es eso. El problema es que el excel tiene que distinguir la carpeta del año, 2009, 2010, ect, y dentro de esta carpeta, distingir el mes correspondiente, y dentro de cada mes correspondiente abrir el archivo "datos NOMBREMES_AÑO.xls"

de la siguiente manera:

"C: / nueva carpeta / datos / 2009 /08 agosto / datos agosto_2009.xls"

"C: / nueva carpeta / datos / 2009 / 09 septiembre / datos septiembre_2009.xls"

y cuando cambie de año, la dirección sera de esta forma

"C: / nueva carpeta / datos / 2010 / 02 febrero / datos FEBRERO_2010.xls"

Muchas gracias por tu ayuda
Responder

Volver a “Hojas de Calculo Excel”

  • Información