Asignación de variables para abrir un archivo en excel
Amigo Dam, necesito de nueva cuenta de tu ayuda.
Tengo esta situación, tengo un archivo formulado que se alimenta de otros documentos de excel, pero como estos reportes son cotidianos genere una macro para ahorrar tiempos.
La macro trabaja bien, pero quiero saber de que manera puedo convertir dinámica la dirección de cada uno de los archivos que utilizo, este es un ejemplo de una de las direcciones que utilizo en la macro para abrir uno de los archivos.
Workbooks.Open Filename:= _
"C:\Documents and Settings\jovani\Mis documentos\JOVANI PC\REPORTES\Septiembre 2013\01 Octubre 2013\Hola.xls"
Esta es la parte que quiero que sea dinámica para no estar entrando al código cada vez que genero este reporte.
\Octubre 2013\01 Octubre 2013\
Como te mencione el reporte se genera diariamente y por obvias razones los días se van recorriendo y los meses también por lo que si genero el reporte el dia 01 de Octubre la dirección deberá estar de esta forma:
\Octubre 2013\01 Octubre 2013\
y al dia de hoy deberá ser:
\Octubre 2013\02 Octubre 2013\
De que forma se puede hacer dinámica esta parte del código amigo?.
Saludos...!!
1 Respuesta
Cambia tu línea por estas
meses = Array("", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
m = meses(Month(Date))
y = Year(Date)
Z = Format(Day(Date), "00")
a = "C:\Documents and Settings\jovani\Mis documentos\JOVANI PC\REPORTES\"
b = m & " " & y & "\"
c = Z & " " & m & " " & y & "\"
d = "Hola.xls"
Workbooks.Open Filename:=a & b & c & d
