我有一个预定的macros，打开/复制+粘贴/保存并closures另一个工作簿，但它随机做它比计划做更多？

我正在运行一个macros，打开另一个工作簿，复制和粘贴，然后保存并closures。

这是每小时运行一次，但由于某种原因，我会打开我的工作簿后，它会有3行复制粘贴，而不是只是一个？

除了当你尝试使用application.ontime来安排时间以外，其他时间都可以正常运行，但是我看不到任何会导致它不止一次的事情？

（它每隔一小时运行一次，但我已经删除了Application.ontimes的其余部分以节省空间）

Sub AllFilesSourceTranspose() With Application .Run "'G:\Research\Analysts\OK\WORKING MODELS\Barge_Tracker_V2_Hourly_Updates_SOURCE1.xlsm'!TRANSPOSEDATASOURCE" DoEvents .DisplayAlerts = False End With Workbooks("Barge_Tracker_V2_Hourly_Updates_SOURCE1.xlsm").Close savechanges:=True Application.DisplayAlerts = True End Sub 

---

 Sub SchedulerForTransposeDataSOURCE1() '-- RUNS SUB(S) (OR FUNCTIONS) AT TIME SCHEDULED. Application.OnTime TimeValue("01:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("02:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("03:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("04:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("05:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("06:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("07:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("08:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("09:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("10:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("11:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("12:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("13:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("14:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("15:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("16:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("17:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("18:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("19:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("20:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("21:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("22:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("23:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("23:11:00"), "AllFilesSourceTranspose" Application.OnTime TimeValue("00:11:00"), "AllFilesSourceTranspose" End Sub