如何在MSP VBA中的主项目计划的子项目中添加新分配

Question

我编写了以下示例代码，为id为当前活动任务的资源添加新的分配：

Sub testAddAssignment()
     ActiveCell.Task.Assignments.Add ResourceID:=1
End Sub

如果我为标准（非主计划）项目文件执行上面的代码，那么代码工作正常。

但是，如果我执行上面的代码，用于主项目计划中包含的子项目，如下所示

然后我收到以下错误消息：