Public Sub macroAEjecutar()
'Aquí vendría el codigo a ejectuar
'Una vez que se ha ejecutado la macro volver a programarla
'Hay que tener en cuenta que si se sale de la macro por varios puntos debería ejecutarse
'por cada uno de esos puntos
Application.OnTime TimeValue("15:00:00"), "macroAEjecutar"
End Sub
@echo off
echo >C:\Tmp\Excel_Run_Macro.tmp
"C:\Program Files (x86)\Microsoft Office\Office14\OUTLOOK.EXE" C:\Directorio\TU_LIBRO.xlsm
DEL C:\Tmp\Excel_Run_Macro.tmp
ShutDown /h
Sub Workbook_Open()
If Dir("C:\Tmp\Excel_Run_Macro.tmp") <> "" Then
macroAEjecutar ' --- Ejecuta la Macro
ActiveWorkbook.Save ' --- Guarda el libro
Application.Quit ' --- Cierra el Excel
End If
End Sub
Private Sub Workbook_Open()
Application.OnTime TimeValue("15:00:00"), "macroAEjecutar"
End Sub
Public Sub macroAEjecutar()
'Aquí vendría el codigo a ejectuar
'Una vez que se ha ejecutado la macro volver a programarla
'Hay que tener en cuenta que si se sale de la macro por varios puntos debería ejecutarse
'por cada uno de esos puntos
Application.OnTime TimeValue("15:00:00"), "macroAEjecutar"
End Sub