将异常插入资源日历

Question

下面是用公共假日填充标准(基本)日历的代码。任何人都可以在资源日历上直接指向我的正确位置来做同样的事情吗？

示例资源日历名称= "Joe“

下面是我为基本日历编写的代码。

Sub Create_New_Exceptions()
    
    Dim e           As Exception
    Dim cal         As Calendar
    Dim CalName     As String
    
    CalName = ActiveProject.Calendar.Name
    
    ActiveProject.BaseCalendars(CalName).Exceptions.Add Type:=1, Start:="1/01/2020", Finish:="1/01/2020", Name:="New        's Day"
    'copy above to insert more public holidays
    
End Sub

任何帮助都将不胜感激。

Answer 1

使用资源的日历属性添加日历异常：

ActiveProject.Resources("Joe Bloggs").Calendar.Exceptions.Add Type:=1, Start:="1/01/2020", Finish:="1/01/2020", Name:="New        's Day"