项目管理软件：MS Project二次开发_（13）.面向实际案例的二次开发教程.docx

PAGE1

PAGE1

面向实际案例的二次开发教程

1.案例背景

在项目管理中，MicrosoftProject(MSProject)是一个广泛使用的工具，可以帮助项目经理有效地规划和跟踪项目进度。然而，有时候标准的MSProject功能可能无法满足特定项目的需求，这就需要进行二次开发来扩展其功能。本节将通过一个实际案例，详细介绍如何在MSProject中进行二次开发，以满足项目管理中的特定需求。

假设您是一家大型建筑公司的项目经理，负责一个复杂的建筑工程。项目中包含多个子项目和任务，需要进行详细的资源分配和进度跟踪。标准的MSProject功能在某些方面可能显得不足，例如：

无法自动计算某些特定资源的使用情况。

无法生成自定义的报告。

无法与公司的其他系统（如ERP）进行数据同步。

为了解决这些问题，您需要进行二次开发。我们将通过以下几个步骤来详细介绍如何实现这些功能：

资源使用情况的自动计算

生成自定义报告

与ERP系统的数据同步

2.资源使用情况的自动计算

2.1需求分析

在建筑项目中，资源的合理分配和使用是确保项目顺利进行的关键。标准的MSProject功能虽然可以显示资源的分配情况，但无法自动计算某些特定资源的使用率和成本。例如，您可能需要自动计算每种材料的总使用量和成本，以便更好地控制项目预算。

2.2开发步骤

2.2.1创建自定义字段

首先，我们需要在MSProject中创建自定义字段来存储每种材料的总使用量和成本。这可以通过VBA（VisualBasicforApplications）来实现。

SubCreateCustomFields()

创建自定义字段

DimcustomField1AsField

DimcustomField2AsField

创建材料总使用量字段

SetcustomField1=ActiveProject.CustomFields.Add(pjCustomTask,材料总使用量,pjNumber)

创建材料总成本字段

SetcustomField2=ActiveProject.CustomFields.Add(pjCustomTask,材料总成本,pjCurrency)

EndSub

2.2.2读取任务资源信息

接下来，我们需要读取每个任务的资源信息，并计算每种材料的使用量和成本。这可以通过遍历项目中的任务和资源来实现。

SubCalculateMaterialUsageAndCost()

遍历项目中的所有任务

DimtaskAsTask

DimresourceAsResource

DimassignmentAsAssignment

DimmaterialUsageAsDouble

DimmaterialCostAsDouble

ForEachtaskInActiveProject.Tasks

IfNottaskIsNothingThen

materialUsage=0

materialCost=0

遍历任务的资源分配

ForEachassignmentIntask.Assignments

Setresource=assignment.Resource

IfNotresourceIsNothingThen

检查资源类型是否为材料

Ifresource.Type=pjMaterialThen

累加材料使用量

materialUsage=materialUsage+assignment.Units*assignment.Work

累加材料成本

materialCost=materialCost+assignment.Units*assignment.Work*resource.StandardRate