使用 VBA 到 Excel 在 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:

The position of the task in its containing collection. The default value is the position of the last item in the collection. (data type Long)

利用第二个参数并传入任务的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

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

Adding a Task in MS Project at a specific location with VBA through Excel

excel

vba

ms-project