MSProject/Excel VBA通​​过“标志”列循环，如何？

Question

希望是一件容易的事。在Excel VBA中，我希望能够遍历我打开的MSProject文件中的自定义标志列。

在伪

For i = 1 to 20 
If task.flagi then .... 

何我写在代码的 'FLAGI'？

感谢，

乔恩Ç

Answer 1

你可以做这样的事情：

Set task = ActiveProject.Tasks.Add("Test Task") 
Dim Index As Integer 
For Index = 1 To 20 
    Dim fieldName As String 
    fieldName = "Flag" & Index 

    Dim fieldValue 
    fieldValue = task.GetField(FieldNameToFieldConstant(fieldName)) 
    ' 
    ' Your code here 
    ' 
Next 

您也可以使用pjField常量直接访问字段（https://msdn.microsoft.com/EN-US/library/office/ff867782.aspx），虽然他们是轻微更难以使用（例如，它们不是按您期望的数字顺序！）