更新分布式MS Project global.mpt文件中的VBA代码模块
我负责修改MS Project的全局文件。它包含一个不断更新的定制模块。我将它分发给其他没有计算机技能更新自己文件的用户(我知道这只是复制粘贴)。更新分布式MS Project global.mpt文件中的VBA代码模块,vba,ms-project,Vba,Ms Project,我负责修改MS Project的全局文件。它包含一个不断更新的定制模块。我将它分发给其他没有计算机技能更新自己文件的用户(我知道这只是复制粘贴)。 我想知道是否有一种方法可以在全局文件中编写代码,检查存储在共享驱动器上的最新版本,并复制和粘贴到其他用户计算机中?使用Global.mpt文件的ThisProject模块中的Project_Open事件定期更新同一驱动器中不同模块中的代码文件(例如“主”模块): 使用global.mpt文件的ThisProject模块中的Project_Open事件
我想知道是否有一种方法可以在全局文件中编写代码,检查存储在共享驱动器上的最新版本,并复制和粘贴到其他用户计算机中?使用Global.mpt文件的ThisProject模块中的Project_Open事件定期更新同一驱动器中不同模块中的代码文件(例如“主”模块):
使用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