使用系統時間每30秒保存一次excel文件

Question

我想根據當前系統時間每30秒保存一個excel文件。 所以在HH：MM：30和HH：NN：00。 我知道您可以在特定時間使用TimeValue調用宏（以保存工作簿），例如在16:30:00（請參見下文）。 有誰知道當前系統時間在excel中更新為XX：XX：30或XX：XX：00時，是否可以使用此函數或其他函數來保存打開的工作簿。

Private Sub Workbook_Open()

Application.OnTime TimeValue("16:30:00"), "macro_save"

End Sub

Answer 1

在您的工作簿代碼中：

Private Sub Workbook_Open()
    If Second(Now) < 30 Then
        Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now), 30), "macro_save"
    Else
        Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now) + 1, 0), "macro_save"
    End If
End Sub

在標准模塊中：

Public Sub macro_save()
    ThisWorkbook.Save
    If Second(Now) < 30 Then
        Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now), 30), "macro_save"
    Else
        Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now) + 1, 0), "macro_save"
    End If
End Sub

您可能需要處理macro_save代碼中的錯誤，否則可能會使用戶感到非常（非常）惱人。