MS Project静态主项目生成Macro开发需求技术问询

核心目标 #

生成完全独立的静态主项目，把3个设备子项目里的任务按Acquisition、Contracts、Logistics三个Section归类汇总，主项目和子项目无任何关联，不会影响各工程师维护的子项目内容。

概念性执行逻辑（分步拆解） #

• 新建空白主项目：从头建一个全新的Project文件，作为最终的汇总结果，和子项目彻底脱钩。
• 先搭主项目框架：在新主项目里建三个顶级大任务（摘要任务），分别命名为Acquisition、Contracts、Logistics，用来装对应Section的所有任务。
• 逐个处理子项目：
  1. 以只读模式打开一个设备的子项目（只读模式能保证不会误改原文件）
  2. 分别找出这个子项目里属于三个Section的所有任务
  3. 把这些任务完整复制（包括名称、时间、资源等所有属性）到主项目对应的顶级大任务下面
  4. 直接关闭子项目，不保存任何修改
• 保存主项目：所有子项目处理完后，把汇总好的主项目存成独立文件。

关键细节说明（针对无VBA经验的理解） #

• 绝对不用子项目链接：必须用VBA的复制粘贴逻辑，不能用Project自带的“插入子项目”功能，否则主项目会和子项目绑定，子项目改了主项目也会变。
• 明确Section的识别方式：得先确定子项目里的Section是怎么标记的——比如是用一个叫Acquisition的摘要任务把同Section的子任务包起来，那就找这个摘要任务下面的所有子任务；如果是给每个任务加了自定义字段标注Section，就按字段值筛选任务。
• 子项目只读保护：打开子项目时强制用只读模式，处理完直接关闭不保存，确保原文件一丝不动。

简化的VBA逻辑框架（伪代码） #

Sub GenerateStaticMaster()
    ' 新建空白主项目
    Dim masterProj As Project
    Set masterProj = Application.Projects.Add
    
    ' 创建三个Section的顶级摘要任务
    Dim sectionList As Variant
    sectionList = Array("Acquisition", "Contracts", "Logistics")
    Dim sectionTask As Task
    Dim i As Integer
    For i = LBound(sectionList) To UBound(sectionList)
        Set sectionTask = masterProj.Tasks.Add(sectionList(i))
        sectionTask.Summary = True ' 设置为摘要任务，用来收拢子任务
    Next i
    
    ' 定义子项目的文件路径（可改成运行时让用户选择文件）
    Dim subProjPaths As Variant
    subProjPaths = Array("C:\设备1子项目.mpp", "C:\设备2子项目.mpp", "C:\设备3子项目.mpp")
    Dim subProj As Project
    Dim j As Integer
    
    ' 逐个处理子项目
    For j = LBound(subProjPaths) To UBound(subProjPaths)
        ' 只读打开子项目
        Set subProj = Application.Projects.Open(subProjPaths(j), ReadOnly:=True)
        
        ' 遍历每个Section，复制对应任务
        For i = LBound(sectionList) To UBound(sectionList)
            Dim targetSection As Task
            Set targetSection = masterProj.Tasks(sectionList(i))
            
            ' 筛选子项目中当前Section的任务（假设Section是摘要任务，取其子任务）
            Dim subTask As Task
            For Each subTask In subProj.Tasks
                ' 这里根据实际Section标记逻辑调整，示例是找父任务为Section摘要的子任务
                If Not subTask.Summary And subTask.Parent.Name = sectionList(i) Then
                    subTask.Copy
                    ' 粘贴到主项目对应Section下
                    targetSection.OutlineIndent
                    masterProj.Tasks.Paste
                    targetSection.OutlineOutdent
                End If
            Next subTask
        Next i
        
        ' 关闭子项目，不保存
        subProj.Close SaveChanges:=pjDoNotSave
    Next j
    
    ' 保存最终的静态主项目
    masterProj.SaveAs "C:\汇总主项目.mpp"
End Sub

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