更新分佈式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