プロジェクト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 

はうまくいくかもしれません。そうでない場合は、コレクションを使用します。