Question

我最近将excel 2010更新为excel 2016，并且由于某些未知原因，“按时应用程序”现在无法正常工作。

Private Sub Workbook_Open()
    WS_Count = ThisWorkbook.Worksheets.Count
    For o = 1 To WS_Count
        ThisWorkbook.Worksheets(o).Unprotect password:="leicaoee"
    Next o
    Application.Visible = True
    interfaceform.Show
    'monitorform1.Show

    Application.OnTime TimeValue("09:30:00"), "Save1" '1º Turno 1º Intervalo Inicio
    Application.OnTime TimeValue("10:00:00"), "Save2" '1º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("10:00:10"), "Save21" ' 1º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("10:30:00"), "Save3" '1º Turno 2º Intervalo Fim


    Application.OnTime TimeValue("18:00:00"), "Save4" '2º Turno 1º Intervalo Inicio
    Application.OnTime TimeValue("18:30:00"), "Save5" '2º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("18:30:10"), "Save51" '2º 2º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("19:00:00"), "Save6" '2º Turno 2º Intervalo Fim


    Application.OnTime TimeValue("02:00:00"), "Save7" '3º Turno 1º Intervalo INICIO
    Application.OnTime TimeValue("02:30:00"), "Save8" '3º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("02:30:00"), "Save81" '3º3º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("03:00:00"), "Save9" '3º Turno 2º Intervalo Fim

    Application.OnTime TimeValue("14:15:00"), "Save10" 'Fim 1º Turno
    Application.OnTime TimeValue("22:15:00"), "Save11" 'Fim 2º Turno
    Application.OnTime TimeValue("06:15:00"), "Save12" 'Fim 3º Turno
End Sub

在更新excel之前，它可以正常工作，但是在更新之后似乎不再起作用了，我不认为问题出在打开工作簿时，而是可能带有一些excel选项。

我已经更改了运行宏等的选项...

Answer 1

我有excel 2016，准时工作正常。

尝试执行一个新过程并调用它：

Private Sub CommandButton1_Click()
Application.OnTime TimeValue("13:50:00"), "Macro1" 
end sub

Sub Macro1()

' Macro1 Macro

MsgBox "Hello"
End Sub

更新Excel

1 个答案: