Application.AddSiteColumn 方法 (Project)
添加一个列，该列可用于活动项目的已同步 SharePoint 网站中的任务列表。
语法
表达式。AddSiteColumn (ProjectField、 SharePointName)
expression：表示 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| ProjectField | 可选 | PjField | 可以是 PjField 枚举中的常量子集之一，它指定要在新列中显示的项目字段;不能是禁止的字段之一 (请参阅备注) 。 |
| SharePointName | 可选 | Variant | 新列的名称。 |
返回值
Boolean
如果添加了列，则为 True。
备注
在以下情况下， AddSiteColumn 方法提供运行时错误 1004“应用程序定义或对象定义的错误”：
活动项目不与同步的 SharePoint 任务列表相关联。 如果项目是本地项目，则可以使用 LinkToTaskList 方法创建同步的 SharePoint 任务列表。
列名称已存在于 SharePoint 任务列表中。 若要查看列名列表，请在 SharePoint 中打开任务列表，然后在“列表”选项卡上选择“修改视图”。“设置编辑视图”>页显示可用于任务列表的所有列名称。
ProjectField 值是非任务域，例如 pjResourceActualCost。 SharePoint 任务列表显示任务域，而不是资源字段。
ProjectField 值是企业自定义字段（如 pjTaskEnterpriseProjectText1）或查阅表字段（如 pjTaskResourceEnterpriseRBS）。 本地任务自定义域（如 pjTaskText1）有效。
ProjectField 值是表 1 中的禁止字段之一。 这些字段是禁止的资源字段和企业自定义字段的补充。 禁止这些字段，因为它们与其他禁止的字段相关，或者具有默认 SharePoint 任务列表中不支持的值类型。
尽管下表中显示的禁止字段可能是 PjField 中的 1，338 个常量中的长列表，但有 357 个（包括本地任务自定义域）可与 AddSiteColumn 方法一起使用。
其他禁止字段
| Field | Field | Field |
|---|---|---|
| pjTaskActive | pjTaskActualOvertimeWork | pjTaskACWP |
| pjTaskAssignmentDelay | pjTaskAssignmentPeakUnits | pjTaskAssignmentUnits |
| pjTaskBaseline[1-10]BudgetCost | pjTaskBaseline[1-10]BudgetWork | pjTaskBaseline[1-10]FixedCostAccrual |
| pjTaskBaselineBudgetCost | pjTaskBaselineBudgetWork | pjTaskBaselineFixedCostAccrual |
| pjTaskBudgetCost | pjTaskBudgetWork | pjTaskCalendarGuid |
| pjTaskConstraintDate | pjTaskConstraintType | pjTaskCostRateTable |
| pjTaskDeliverableGuid | pjTaskDeliverableType | pjTaskDemandedRequested |
| pjTaskEarnedValueMethod | pjTaskEnterpriseOutlineCode[1-30] | pjTaskExternalTask |
| pjTaskFinishSlack | pjTaskFixedCostAccrual | pjTaskFreeSlack |
| pjTaskGuid | pjTaskHideBar | pjTaskHyperlink |
| pjTaskHyperlinkAddress | pjTaskHyperlinkHref | pjTaskHyperlinkScreenTip |
| pjTaskHyperlinkSubAddress | pjTaskID | pjTaskIgnoreWarnings |
| pjTaskIndicators | pjTaskIsAssignment | pjTaskLevelAssignments |
| pjTaskLevelDelay | pjTaskLinkedFields | pjTaskManual |
| pjTaskMilestone | pjTaskNotes | pjTaskObjects |
| pjTaskOutlineCode[1-10] | pjTaskOutlineLevel | pjTaskOutlineNumber |
| pjTaskPathDrivenSuccessor | pjTaskPathDrivingPredecessor | pjTaskPathPredecessor |
| pjTaskPathSuccessor | pjTaskPreleveledFinish | pjTaskPreleveledStart |
| pjTaskPriority | pjTaskResourceType | pjTaskStartSlack |
| pjTaskStatus | pjTaskStatusIndicator | pjTaskSubproject |
| pjTaskSubprojectReadOnly | pjTaskTotalSlack | pjTaskType |
| pjTaskWarning | pjTaskWorkContour |
如果对 SharePointName 参数使用唯一名称，则可以添加任务列表中已存在的字段，尽管这样做的值值得怀疑。
示例
若要使用 AddDurationColumns 宏，请在 SharePoint 网站中创建任务列表，在 Project Professional 中创建项目，然后使用 LinkToTaskList 方法导入任务列表。 通过使用功能区“项目”选项卡上的“设置基线”命令，为活动项目设置基线，然后更改某些任务的工期。
AddDurationColumns 宏将任务工期和基线工期添加到 SharePoint 任务列表中的可用列列表中 (请参阅图 1) 。
注意
运行 AddDurationColumns 宏后，必须将项目保存在 Project Professional 中，以便将更改与 SharePoint 任务列表同步。
Sub AddDurationColumns()
Dim success As Boolean
Dim results As String
Dim columnName As String
Dim fieldName As PjField
results = ""
' Add the first column.
fieldName = pjTaskBaselineDurationText
columnName = "Baseline duration"
' If the field name exists in the SharePoint tasks list, or fieldName
' is one of the prohibited fields, the AddSiteColumn method
' returns error 1100.
On Error Resume Next
success = AddSiteColumn(fieldName, columnName)
If success Then
results = "Added site column: " & columnName
Else
results = "Error in AddSiteColumn: " & columnName
End If
' Add the second column.
fieldName = pjTaskDurationText
columnName = "Current duration"
success = AddSiteColumn(fieldName, columnName)
If success Then
results = results & vbCrLf & "Added site column: " & columnName
Else
results = results & vbCrLf & "Error in AddSiteColumn: " & columnName
End If
Debug.Print results
End Sub
保存项目后，转到 SharePoint 中的任务列表。 在“ 列表 ”选项卡上，选择“ 修改视图” 命令。 在“设置 - 编辑视图”页上，选择 AddDurationColumns 宏添加的“基线工期”字段和“当前持续时间”字段。 图 1 显示了包含两个新字段的任务列表。
图 1. 将字段添加到同步的 SharePoint 任务列表
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。