我想根据当前系统时间每隔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
答案 0 :(得分:5)
在您的工作簿代码中:
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
代码中的错误,否则会对用户造成非常(非常)烦恼。