在MS Project中循环通过列

Question

我正在尝试使用Excel中的VBA将MS项目中的所有数据导入Excel。

Set aProg = appProj.ActiveProject
appProj.OutlineShowAllTasks
j = 2
For Each t In aProg.Tasks
    If (Not t Is Nothing) Then
Cells(j, 5).Value = t.Start
Cells(j, 6).Value = t.Task Name
Cells(j, 7).Value = t.%complete

j =j+1
end if

下一个

如果列名/字段名没有任何特殊字符或为空，则代码工作正常。有人能告诉我如何用空格或特殊字符（如"t.Task name"或"t.%complete"

Answer 1

使用早期绑定，以便在编写代码时获得IntelliSense（更多信息）。通过这种方式，您可以声明t As MSProject.Task，当您键入t并后跟句点时，您将获得属性和方法的下拉列表。

对于您的特定案例，您需要的属性是t.TaskName和t.PercentComplete。