寻求MS Project多组件VBA宏批量安装至Global.MPT的解决方案

方法一：编写VBA自动化导入脚本 #

通过VBA代码遍历指定文件夹中的VBA组件文件，自动导入到Global.MPT，无需手动逐个操作。

代码示例

Sub BatchImportToGlobalMPT()
    Dim projApp As MSProject.Application
    Dim importPath As String
    Dim fileName As String
    
    Set projApp = New MSProject.Application
    ' 打开全局模板（确保可写入）
    If Not projApp.FileOpenEx(Name:=projApp.GlobalFileName, ReadOnly:=False) Then
        MsgBox "无法打开全局模板，请确认模板未被锁定", vbExclamation
        Exit Sub
    End If
    
    ' 替换为你的VBA组件存放路径
    importPath = "C:\YourVBAComponentsFolder\"
    
    ' 导入标准模块（.bas文件）
    fileName = Dir(importPath & "*.bas")
    Do While fileName <> ""
        projApp.VBProject.VBComponents.Import importPath & fileName
        fileName = Dir
    Loop
    
    ' 导入类模块（.cls文件）
    fileName = Dir(importPath & "*.cls")
    Do While fileName <> ""
        projApp.VBProject.VBComponents.Import importPath & fileName
        fileName = Dir
    Loop
    
    ' 导入窗体（.frm文件，.frx资源文件需同目录）
    fileName = Dir(importPath & "*.frm")
    Do While fileName <> ""
        projApp.VBProject.VBComponents.Import importPath & fileName
        fileName = Dir
    Loop
    
    ' 保存并关闭全局模板
    projApp.FileSaveAs Name:=projApp.GlobalFileName
    projApp.FileCloseEx Save:=pjSave
    
    MsgBox "所有VBA组件已成功导入Global.MPT", vbInformation
End Sub

关键注意事项

• 启用VBA项目对象模型访问：打开Project的「文件→选项→信任中心→信任中心设置→宏设置」，勾选「信任对VBA项目对象模型的访问」，否则代码会因权限不足报错。
• 模板锁定问题：确保Global.MPT未被其他Project实例或进程占用，否则无法写入修改。
• 窗体文件完整性：导入窗体时，需将.frm和对应的.frx资源文件放在同一目录，导入.frm时会自动加载.frx中的控件资源。

方法二：通过加载宏间接实现批量部署 #

如果无需直接写入Global.MPT，可将所有VBA组件打包为Project加载宏（.mpp格式），然后在Project中设置该加载宏为自动加载：

1. 将所有VBA组件导入一个空白Project文件，保存为「宏启用的Project文件」（.mpp）。
2. 打开Project的「文件→选项→加载宏」，点击「转到」，添加该加载宏并勾选「自动加载」。
3. 每次启动Project时，加载宏中的VBA组件会自动生效，效果类似直接导入Global.MPT。

内容的提问来源于stack exchange，提问作者Shoebagel