Macro excel que me abra un archivo
Hola,
Muchas Gracias por tu ayuda y tu tiempo.
Quiero hacer una macro en excel que me abra otro archivo de excel.
Ahora bien, los archivos que quiero que me abra son mensuales, es decir que tengo un archivo que se llama enero.xls, febrero.xls, y lo que yo quiero es que me identifique la fecha que estamos hoy y que me abra el archivo correspondiente a ese mes.
Es decir, si hoy es 28 de enero, que la macro identifique que el archivo que me tiene que abrir es enero.
Nuevamente muchas gracias y un saludo
Muchas Gracias por tu ayuda y tu tiempo.
Quiero hacer una macro en excel que me abra otro archivo de excel.
Ahora bien, los archivos que quiero que me abra son mensuales, es decir que tengo un archivo que se llama enero.xls, febrero.xls, y lo que yo quiero es que me identifique la fecha que estamos hoy y que me abra el archivo correspondiente a ese mes.
Es decir, si hoy es 28 de enero, que la macro identifique que el archivo que me tiene que abrir es enero.
Nuevamente muchas gracias y un saludo
1 Respuesta
Respuesta de edwinhenao
1
Prueba con esta macro...
...
Sub AbrirArchivoDelMes()
Select Case Month(Date)
Case 1
Workbooks.Open Filename:="C:\Enero.xls"
Case 2
Workbooks.Open Filename:="C:\Febrero.xls"
Case 3
Workbooks.Open Filename:="C:\Marzo.xls"
Case 4
Workbooks.Open Filename:="C:\Abril.xls"
Case 5
Workbooks.Open Filename:="C:\Mayo.xls"
Case 6
Workbooks.Open Filename:="C:\Junio.xls"
Case 7
Workbooks.Open Filename:="C:\Julio.xls"
Case 8
Workbooks.Open Filename:="C:\Agosto.xls"
Case 9
Workbooks.Open Filename:="C:\Septiembre.xls"
Case 10
Workbooks.Open Filename:="C:\Octubre.xls"
Case 11
Workbooks.Open Filename:="C:\Noviembre.xls"
Case 12
Workbooks.Open Filename:="C:\Diciembre.xls"
End Select
End Sub
...
Sub AbrirArchivoDelMes()
Select Case Month(Date)
Case 1
Workbooks.Open Filename:="C:\Enero.xls"
Case 2
Workbooks.Open Filename:="C:\Febrero.xls"
Case 3
Workbooks.Open Filename:="C:\Marzo.xls"
Case 4
Workbooks.Open Filename:="C:\Abril.xls"
Case 5
Workbooks.Open Filename:="C:\Mayo.xls"
Case 6
Workbooks.Open Filename:="C:\Junio.xls"
Case 7
Workbooks.Open Filename:="C:\Julio.xls"
Case 8
Workbooks.Open Filename:="C:\Agosto.xls"
Case 9
Workbooks.Open Filename:="C:\Septiembre.xls"
Case 10
Workbooks.Open Filename:="C:\Octubre.xls"
Case 11
Workbooks.Open Filename:="C:\Noviembre.xls"
Case 12
Workbooks.Open Filename:="C:\Diciembre.xls"
End Select
End Sub
