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

【问题标题】：Update VBA code module in distributed MS Project global.mpt files更新分布式 MS Project global.mpt 文件中的 VBA 代码模块
【发布时间】：2018-03-22 02:53:27
【问题描述】：

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

【问题讨论】：

标签： vba ms-project

【解决方案1】：

使用 global.mpt 文件的 ThisProject 模块中的 Project_Open 事件来定期更新同一文件中不同模块（例如“Main”模块）中的代码：

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

【讨论】：