如何用Excel+VBA导入资源休假至MS Project 2021？遇冲突报错求解

报错原因 #

提示的冲突是因为要添加的休假日期范围，和目标资源日历中已存在的例外项（比如已录入的休假、节假日）存在重叠，MS Project不允许日历例外出现范围重叠的情况。

具体解决方案 #

1. 检查冲突后跳过重复项

遍历目标资源的所有日历例外，提前判断日期范围是否重叠，无冲突再执行添加操作：

Dim res As Resource
Dim exc As Exception
Dim isConflict As Boolean
Set res = ActiveProject.Resources(resourceName)

isConflict = False
' 遍历已有例外检查日期重叠
For Each exc In res.Calendar.Exceptions
    ' 逻辑：新日期的结束早于已有例外开始，或新日期开始晚于已有例外结束，则无冲突
    If Not (endDate < exc.Start Or startDate > exc.Finish) Then
        isConflict = True
        Exit For
    End If
Next

If Not isConflict Then
    res.Calendar.Exceptions.Add Type:=1, Start:=startDate, Finish:=endDate
Else
    ' 可选：输出冲突日志，方便排查
    Debug.Print resourceName & " 日期 " & startDate & "-" & endDate & " 与已有休假冲突，已跳过"
End If

2. 合并重叠的例外项

如果需要保留所有休假记录，遇到重叠时可以合并日期范围，删除原有重叠项后添加合并后的新例外：

Dim res As Resource
Dim exc As Exception
Dim mergeStart As Date, mergeFinish As Date
Set res = ActiveProject.Resources(resourceName)

mergeStart = startDate
mergeFinish = endDate

' 遍历并处理重叠例外
For Each exc In res.Calendar.Exceptions
    If Not (endDate < exc.Start Or startDate > exc.Finish) Then
        ' 更新合并后的起止日期
        mergeStart = IIf(mergeStart < exc.Start, mergeStart, exc.Start)
        mergeFinish = IIf(mergeFinish > exc.Finish, mergeFinish, exc.Finish)
        ' 删除原有重叠的例外项
        exc.Delete
    End If
Next

' 添加合并后的休假例外
res.Calendar.Exceptions.Add Type:=1, Start:=mergeStart, Finish:=mergeFinish

3. 清空原有例外后批量导入（谨慎使用）

如果业务场景允许完全替换原有休假记录，可以先清空资源日历的所有例外，再批量导入新数据：

Dim res As Resource
Set res = ActiveProject.Resources(resourceName)

' 循环删除所有已有例外
Do While res.Calendar.Exceptions.Count > 0
    res.Calendar.Exceptions(1).Delete
Loop

' 导入新休假
res.Calendar.Exceptions.Add Type:=1, Start:=startDate, Finish:=endDate

额外注意事项 #

• Type:=1对应一次性例外，若需导入周期性休假（如每周固定休息），需调整Type参数（比如Type:=2为每周重复）。
• 确保startDate和endDate为合法的Date类型，避免因日期格式错误导致的隐性冲突。
• 批量导入时建议添加错误捕获，避免单个条目报错中断整个流程：

On Error Resume Next
res.Calendar.Exceptions.Add Type:=1, Start:=startDate, Finish:=endDate
If Err.Number <> 0 Then
Debug.Print "导入失败：" & resourceName & " - " & Err.Description
Err.Clear
End If
On Error GoTo 0

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