excel - 在ms-project中按时间间隔执行宏

Question

我正在尝试创建一个宏，以便在应用程序打开时以设定的时间间隔将特定格式的 ms-project 文件保存到给定位置。除了在间隔部分执行之外，我已经让它大部分工作了。

我进行了一些谷歌搜索，当使用 Excel 或 Word 时，您可以使用 Application.OnTime 方法和时间偏移来按所需的时间间隔调用子程序。不幸的是，MS-Project 中似乎不存在这种方法。

我可以在这里使用其他方法还是应该放弃这个想法？

Answer 1

我意识到这是一个迟到的答案，但我有一个用于解决类似问题的解决方案。由于 Project_Change 事件经常运行，因此只需跳转到该事件，然后与变量进行比较即可。

Public lastSave As Date


Private Sub Project_Change(ByVal pj As Project)


    If DateDiff("n", lastSave, Now()) > 1 Then ' Replace 1 with # of minutes between saves.
        Application.FileSave
        lastSave = Now()

    End If

End Sub