使用VBA更新MS Project日期字段时遇438错误求助

这个问题的核心原因很明确：MS Project的日期字段（包括预定义的Datum3和自定义日期字段）是严格的日期/时间类型，只接受日期值，不接受格式化后的字符串。你用Format()函数返回的是文本字符串，直接赋值给日期字段自然会触发"不支持的方法"（438）错误。

正确的解决步骤 #

1. 直接赋值日期类型值
   不要用Format()转换字符串，直接把日期值赋值给字段。你的代码可以修改为：

   For Each t In ActiveProject.Tasks
       ' 直接赋值CDate转换后的日期值，而非格式化字符串
       t.Datum3 = CDate("12.05.18")
       Debug.Print Format(t.Datum3, " ddd dd.mm.yy") ' 如需查看格式化效果可单独打印
   Next t
   

   这样字段存储的是真实的日期数据，后续可以正常按日期排序，完全符合你的需求。

2. 设置字段的显示格式
   如果需要在MS Project界面中看到"ddd dd.mm.yy"格式的日期，不需要在代码里处理，直接在软件中设置字段的显示格式即可：

   • 右键点击目标字段的列标题
   • 选择「字段设置」
   • 在弹出窗口中切换到「格式」选项卡
   • 选择你需要的日期格式（或者自定义格式为ddd dd.mm.yy）

为什么文本字段可以用但不符合需求？ #

Text25这类文本字段是字符串类型，接受任何文本内容，所以你赋值格式化后的字符串不会报错。但字符串的排序是按字符顺序（比如"Mo 14.05.18"会排在"Di 13.05.18"前面，因为"M"比"D"靠后），完全不符合日期的逻辑排序，这也是为什么必须使用日期字段的原因。

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