更新分布式MS Project中的VBA代码模块global.mpt文件

Question

我有责任修改MS Project的全局文件。它包含一个不断更新的定制模块。我将它分发给其他没有计算机技能的用户来更新他们自己的文件（我知道它只是复制粘贴）。 我想知道是否有一种方法可以在Global文件中编写一些代码，用于检查存储在共享驱动器上的最新版本，并在其他用户计算机中进行复制和粘贴？

Answer 1

使用Project_Open事件您Global.mpt文件的ThisProject模块中，在同一个文件不同的模块，定期更新的代码（例如“主”模块）：

Dim LastUpdated As Date 

Private Sub Project_Open(ByVal pj As Project) 

    ' run update if more than 1 hour since last update 
    If Now - LastUpdated > (1/24) Then 
     With ThisProject.VBProject 
      .VBComponents.Remove .VBComponents("Main") 
      .VBComponents.Import "c:\temp\main.bas" 
     End With 
     LastUpdated = Now 
    End If 

End Sub