我希望代码与这里的问题类似：Insert exceptions into Resource Calendar
从MPP界面中，您只需选择“yearly”单选按钮，并设置将重复异常（休息日）的日期和月份，但我需要从开发人员模式代码中执行此操作，以便稍后扩展功能。
我尝试使用Type 2属性：pjYearlyMonthDay 2异常重复模式是每年在一个月的指定日期发生，例如12月24日。
Dim CalName As String
CalName = ActiveProject.Calendar.Name
ActiveProject.BaseCalendars(CalName).Exceptions.Add Type:=2, Start:="5/01/2023", Occurrences:=10, Name:="TEST", MonthDay:="5 January"错误1101 Microsoft文档在这里，但我无法弄清楚：https://learn.microsoft.com/en-us/office/vba/api/project.exceptions.addhttps://learn.microsoft.com/en-us/office/vba/api/project.pjexceptiontype
1条答案
按热度按时间njthzxwz1#
下面是添加这种每年异常的正确语法：
需要设置Month和MonthDay参数，它们都是Long。参见Exceptions.Add方法。