通过 Excel 使用 VBA 在 MS Project 中的特定位置添加任务

Question

我有包含所有当前任务的 Excel 文件。新任务可以添加到任何位置。我想通过添加缺少的任务来从 Excel 更新我的 MS Project 文件。使用 .Tasks.Add("name from Excel") 将作为 MS Project 底部的新任务。如何使用 Excel 中的 VBA 在中间的特定位置添加新任务？我可以在 Excel 的 VBA 代码中使用 SelectRow 和 InsertTask 吗？

*编辑 忘了提及，.Tasks.Add 不允许我使用第二个参数，就像文档中所说的那样。

With mpp
    .Tasks.Add ("name from Excel", RowNumber)
End With

此代码会将 .Tasks.Add ("name from Excel", RowNumber) 行显示为红色。如果我删除第二个参数，那就很好并且可以工作。

Answer 1

快速查看文档 Tasks.Add 显示该方法采用可选的第二个参数Before：

任务在其包含的集合中的位置。默认
value 是集合中最后一项的位置。 （数据类型
长）

利用第二个参数并传入应在其之前添加新任务的任务 ID。例如：

With mpp
    .Tasks.Add "name from Excel", RowNumber
End With

或者

Dim t As MSProject.Task
With mpp
    Set t = .Tasks.Add("name from Excel", RowNumber)
End With