MSProject/Excel VBA 遍历 'Flag' 列，如何？

Question

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

伪

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

如何在代码中编写'flagi'？

谢谢，

乔恩 C

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)，尽管它们使用起来稍微困难一些（例如，它们不是您想要的数字顺序期待！）

MSProject/Excel VBA 遍历 'Flag' 列，如何？

MSProject/Excel VBA Loop through 'Flag' columns, how?

excel

vba

loops

if-statement

ms-project