如何使用VBA过滤时间轴中的MS-Project任务

Question

我正在尝试过滤Project 2013文件中的任务，只选择标有“在时间轴上显示”复选框的任务。 我使用VBA进行此过滤，但我的循环中的每个任务都使用TaskOnTimeline = True 甚至只有12个任务（190个）标记为这样。

这是我正在使用的代码：

Set appProj = CreateObject("Msproject.Application")
appProj.FileOpen GanttPath
Set GNT = appProj.ActiveProject
appProj.Visible = True
For Each iTask In GNT.Tasks 
  If TaskOntimeline Then
    G1 = iTask.name
    G2 = iTask.ID
    G3 = iTask.UniqueID
    G4 = iTask.Start
    G5 = iTask.Finish
  End if
Next
appProj.FileCloseEx
appProj.Quit

我会将这些值放在Array中进行进一步处理和显示。

为什么所有任务都返回相同的值？ 我该怎么做才能更准确地过滤？

此致