项目中的任务数组 VBA

Question

我正在尝试将 Tasks 存储在数组中，但我所有的代码（下方）存储的是该任务的索引。如何将所有任务功能存储在数组中？谢谢

Private Sub Project_Change(ByVal pj As Project)

            Dim tsk As Task
            Dim ol As Outlook.Application
            Dim mail As Outlook.MailItem
            Dim TarefasAtrasadas() As Variant


            'tsk.Flag1 = Activar Aviso Email?
            'tsk.Flag2 = Aviso Email
            i = 0
            For Each tsk In ActiveProject.Tasks
                If tsk.Flag1 = True And tsk.PercentComplete < 100 Then
                    If delayedTsk(tsk) = 1 Then
                        ReDim Preserve TarefasAtrasadas(i)
                        TarefasAtrasadas(i) = tsk
                        i = i + 1
                    End If
                End If
            Next tsk
End sub

Answer 1

我没试过但是

SET TarefasAtrasadas(i) = tsk

可能有用。如果没有，请使用集合。