............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Distinguir carpetas mensuales del explorador con una macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Distinguir carpetas mensuales del explorador con una macro

Mensaje por tetriak el Miér Jul 22, 2009 7:10 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íais cómo hacerlo?

Muchísimas gracias

SALUDOS

tetriak

Masculino Cantidad de envíos : 6
Edad : 38
Ciudad - Pais : españa
Version de Excel : 2002
Fecha de inscripción : 13/07/2009

Volver arriba Ir abajo

Re: Distinguir carpetas mensuales del explorador con una macro

Mensaje por GalileoGali el Miér Jul 22, 2009 8:17 am

te recomiendo vayas viendo las funciones: MONTH, YEAR, FORMAT en VBA, ya que supongo que la informacion del libro1.xls debe estar registrada con fecha

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Distinguir carpetas mensuales del explorador con una macro

Mensaje por P@li el Miér Jul 22, 2009 5:55 pm

Hola Tetriak,
Ejecuta las siguientes líneas.

msgbox Format(Date,"mm mmmm") & ".xls"
msgbox "C:\" & Fomart(Date,"yyyy")

Son ejemplos que te pueden ayudar a orientarte, en caso que la ayuda de Gali no te haya sido lo suficientemente completa para llegar a una solución (debería serlo).

Saludos.

P@li
Admin

Masculino Cantidad de envíos : 243
Edad : 34
Ciudad - Pais : Buenos Aires, Argentina
Version de Excel : Microsoft Excel 2002 (10.2614.2625)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: Distinguir carpetas mensuales del explorador con una macro

Mensaje por tetriak el Vie Jul 24, 2009 7:48 am

Buenos días, creo que deberías tener esta información

extraigo la parte importante del código

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"


Me he mirado las funciones month, year, format y derivadas. Si que consigo que distinga el dia y año, pero no que me abra el archivo concreto.

Muchas gracias por vuestra ayuda

tetriak

Masculino Cantidad de envíos : 6
Edad : 38
Ciudad - Pais : españa
Version de Excel : 2002
Fecha de inscripción : 13/07/2009

Volver arriba Ir abajo

Re: Distinguir carpetas mensuales del explorador con una macro

Mensaje por GalileoGali el Vie Jul 24, 2009 6:07 pm

Muestranos el codigo en que utilizas esas funciones con exito....y de ahi te diremos como seguir. pero tenemos que ver de donde sacas el mes y el año

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Distinguir carpetas mensuales del explorador con una macro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.