Excel VBA读取MS Project任务属性：获取任务颜色遇错误438求助

问题重现 #

我正在开发一款工具，帮助未安装MS Project的用户将Project文件转换为Excel格式。核心功能已正常运行，但无法获取Project任务的单元格颜色并同步到Excel单元格背景色。尝试调用Task对象的t.CellColor属性时，无论传入什么参数都会触发运行时错误438（对象不支持该属性或方法）。

涉及代码片段：

Dim projapp, proj As Object
Set projApp = CreateObject("MSProject.Application")
projApp.FileOpen projFile
Set proj = projApp.ActiveProject

For Each t In proj.Tasks
    If Not t Is Nothing Then
        ' ... 其他任务信息写入逻辑
        xlSheet.Rows(row).Interior.Color = t.CellColor(??)
    End If
Next

问题原因 #

CellColor不是Task对象的固有属性，它属于MS Project的视图单元格格式属性，仅针对当前激活视图中的单元格生效，而非任务本身的存储属性。直接通过Task对象调用该属性会因对象模型不匹配触发438错误。此外，使用CreateObject的后期绑定方式时，若未正确加载目标视图，也会导致无法访问该格式属性。

解决方案 #

通过MS Project的Application对象调用CellColor方法，先定位到任务在视图中的对应行，再获取颜色值，最后同步到Excel。

修正后的代码示例 #

Dim projApp As Object, proj As Object
Dim t As Object
Dim targetSheet As Worksheet
Dim currentRow As Integer, taskColor As Long

' 初始化Excel目标工作表
Set targetSheet = ThisWorkbook.Worksheets("Project转换结果")
currentRow = 2 ' 从第二行开始写入数据

' 启动MS Project并打开文件
Set projApp = CreateObject("MSProject.Application")
projApp.FileOpen "C:\你的Project文件路径.mpp"
Set proj = projApp.ActiveProject

' 激活目标视图（比如甘特图，需与Project中配置的视图名称一致）
projApp.ViewApply "甘特图"

' 遍历任务并同步颜色
For Each t In proj.Tasks
    If Not t Is Nothing And Not t.Summary Then ' 排除空任务和摘要任务
        ' 定位到当前任务对应的行
        projApp.SelectRow t.ID, False
        
        ' 获取任务名称列的单元格颜色（列号1对应甘特图默认的任务名称列，可按需调整）
        taskColor = projApp.CellColor(projApp.ActiveCell.Row, 1)
        
        ' 设置Excel单元格背景色
        targetSheet.Cells(currentRow, 1).Interior.Color = taskColor
        
        ' 写入其他任务信息（示例：任务名称、工期）
        targetSheet.Cells(currentRow, 2).Value = t.Name
        targetSheet.Cells(currentRow, 3).Value = t.Duration
        
        currentRow = currentRow + 1
    End If
Next t

' 清理资源
projApp.FileClose SaveChanges:=False
Set proj = Nothing
Set projApp = Nothing
Set targetSheet = Nothing

关键注意事项 #

• 转换过程必须在已安装MS Project的环境中运行（工具的转换逻辑依赖Project对象模型，最终生成的Excel可给未安装用户使用）
• CellColor的列号参数需与当前激活视图的列配置匹配，可通过Project界面的列顺序确认
• 若需获取其他列的颜色（比如工期列），只需调整CellColor的第二个参数为对应列号
• 摘要任务的颜色处理需额外判断，部分视图中摘要任务颜色可能继承子任务或单独设置

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