0

我正在开展一个项目，以更新制造计划中的生产说明。我编写了一个宏来将数据拉入制造计划，但我需要每 15 分钟自动执行文件中的宏，但只有在用户打开制造计划时。我已经尝试在特定时间使用“Application.OnTime”，但是如果它关闭，这似乎会打开制造计划。我对 VBA 还很陌生，因此非常感谢您对代码的任何帮助。我使用的代码非常基本：

Private Sub Workbook_Open()

'Application.OnTime TimeValue("08:00:30"), "Open_SFCDB"
'Application.OnTime TimeValue("08:16:30"), "Open_SFCDB"
'Application.OnTime TimeValue("08:32:30"), "Open_SFCDB"
'Application.OnTime TimeValue("08:48:30"), "Open_SFCDB"
'Application.OnTime TimeValue("09:04:30"), "Open_SFCDB"
......Etc, Etc for 24 hr period

'End Sub`
4

2 回答 2

1

您可能希望将 Application.OnTime 过程放在第二个工作簿中。让它检查您的制造计划在运行时是否打开。

于 2013-05-15T10:43:00.233 回答
0

尝试将其设为活动工作簿，并仅在成功时继续。

On Error Resume Next
Workbooks("ManufacturingSchedule").Activate
If Err <> 0 then
   .... do your update etc ....
end if
于 2013-05-15T08:41:20.943 回答