将 Task.Duration 分配给 VBA Microsoft Project 中已添加的任务

Question

我目前正在开发一个 VBA 宏，将产品需求导入到 Microsoft Project 中。

我使用以下代码来添加/更新任务：

Function AddTask(strText As String, lngDuration As Long, taskParent As Task)
    Dim oldTask As Task
    Set oldTask = taskParent.OutlineChildren(strText)
    If oldTask Is Nothing Then
        Dim newTask As Task
        Set newTask = taskParent.OutlineChildren.Add(Name:=strText, Before:=LastIndexOf(taskParent) + 1)
        newTask.OutlineLevel = taskParent.OutlineLevel + 1
        newTask.Duration = lngDuration
        Set AddTask = newTask
    Else
        oldTask.Duration = lngDuration
        Set AddTask = oldTask
    End If
End Function

这对于新任务来说非常有效，但不幸的是，当我尝试更新旧任务的 Duration 属性时，我收到了一个奇怪的错误。

Run-Time Error '1101'

Argument value is not valid

我真的不明白

newTask.Duration = lngDuration

和

oldTask.Duration = lngDuration

之间有什么区别？
请帮忙！

Answer 1

我自己找到的！

问题是有时任务会被添加到旧任务中。所以它现在是一个包含几个子任务的父任务。根据定义，持续时间现在是所有子持续时间的总和。因此，父任务的持续时间无法手动更改，因为它会自动更新。

因此，简单检查旧任务是否包含任何 OutlineChildren 然后跳过它就可以解决我的问题。

If oldTask.OutlineChildren.Count = 0 Then
    oldTask.Duration = lngDuration
End If

谢谢