从Matlab调用MS Project VBA函数获取任务时长失败求助

为什么你的代码会遇到问题？ #

1. VBA函数未显式声明返回类型：你的GatherTsksDur函数没有指定返回类型，虽然VBA默认会按Variant处理，但显式声明能避免外部调用（比如Matlab）时的类型解析异常。
2. MS Project Tasks集合存在空任务：ActiveProject.Tasks里可能包含Nothing的元素（比如已删除但未清理的任务），直接访问Tsk.Duration会触发错误，导致函数执行中断。
3. 数组初始化不严谨：你用ReDim TsksDur(ActiveProject.Tasks.Count)创建的数组是0到Count（共Count+1个元素），但循环只会填充Count个元素（假设所有任务都有效），最后一个元素会是空值，可能让Matlab无法正确解析。
4. Matlab调用VBA函数的返回值传递问题：直接用invoke调用VBA函数时，MS Project的Run方法对数组类型的返回值传递存在兼容性问题，导致调用失败。

修正后的VBA代码 #

我们先优化VBA部分，处理空任务、明确返回类型，再通过全局变量中转解决返回值传递问题：

' 全局变量：用于临时存储任务时长数组，方便Matlab获取
Public g_TaskDurations As Variant

Sub LoadTaskDurations()
    ' 调用函数填充全局变量
    g_TaskDurations = GatherTaskDurations()
End Sub

Public Function GatherTaskDurations() As Variant
    Dim validTaskCount As Long
    Dim idx As Long
    Dim tsk As Task
    
    ' 第一步：统计有效任务数量（排除空任务）
    validTaskCount = 0
    For Each tsk In ActiveProject.Tasks
        If Not tsk Is Nothing Then
            validTaskCount = validTaskCount + 1
        End If
    Next tsk
    
    ' 初始化数组：用基于1的索引，匹配Matlab的数组习惯
    ReDim taskDurs(1 To validTaskCount) As Variant
    
    idx = 1
    ' 第二步：遍历有效任务，存储时长（这里用DurationValue获取分钟数，可按需调整）
    For Each tsk In ActiveProject.Tasks
        If Not tsk Is Nothing Then
            taskDurs(idx) = tsk.DurationValue ' 直接存储数值，避免对象类型传递问题
            idx = idx + 1
        End If
    Next tsk
    
    GatherTaskDurations = taskDurs
End Function

' 给Matlab调用的函数：返回全局变量中的时长数组
Public Function GetTaskDurations() As Variant
    GetTaskDurations = g_TaskDurations
End Function

对应的Matlab调用代码 #

% 创建MS Project服务器对象
MSP_a = actxserver('MSProject.Application');
% 打开目标项目文件
invoke(MSP_a, 'FileOpen', [out_path filesep fname fext]);
% 先执行Sub填充全局变量
MSP_a.Run('LoadTaskDurations');
% 调用函数获取时长数组
TskDur = MSP_a.Run('GetTaskDurations');
% 查看结果
disp(TskDur);

另一种更直接的方案（无需全局变量） #

如果你的MS Project和Matlab版本兼容性较好，可以直接让VBA返回基于1的数组，Matlab就能直接获取：

修改VBA的GatherTaskDurations函数（保留基于1的数组），然后Matlab代码改为：

MSP_a = actxserver('MSProject.Application');
invoke(MSP_a, 'FileOpen', [out_path filesep fname fext]);
% 直接调用函数获取数组
TskDur = MSP_a.Run('GatherTaskDurations');
disp(TskDur);

关键注意事项 #

• 必须处理空任务：MS Project的Tasks集合大概率存在空元素，跳过它们能避免函数执行失败。
• 优先传递数值而非对象：Tsk.Duration返回的是Duration对象，用DurationValue获取数值（分钟数）能避免跨语言的对象类型传递问题。
• 匹配数组索引习惯：Matlab默认使用基于1的数组，VBA中对应初始化数组为1 To N，能减少解析异常。

内容的提问来源于stack exchange，提问作者jorge salas herranz