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

Question

我正在尝试创建一个宏，以便在应用程序打开时以指定的时间间隔将特定格式的ms项目文件保存到给定位置。除了在间隔部分执行外，我已经完成了它。

我有一些谷歌，当使用excel或word时，你可以使用Application.OnTime方法和时间偏移来按所需的间隔调用sub。不幸的是，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