我负责修改MS Project的Global文件。它包含一个不断更新的定制模块。我将其分发给不具备计算机技能来更新自己的文件的其他用户(我知道这只是复制粘贴)。
我想知道是否有一种方法可以在全局文件中编写一些内容来检查共享驱动器上存储的最新版本并复制并粘贴到其他用户计算机中?
使用 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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)