Visual Basic para Aplicaciones - Macro ejecutable todos los días -vba Excel-

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