项目管理软件：MS Project二次开发_（4）.MSProject对象模型与属性.docx

PAGE1

PAGE1

MSProject对象模型与属性

引言

在进行MSProject的二次开发时，了解其对象模型和属性是非常重要的。对象模型是MSProjectAPI的核心，它提供了一种结构化的方式来访问和操作项目数据。通过对象模型，开发者可以创建、读取、更新和删除项目中的各种元素，如任务、资源、日历等。本节将详细介绍MSProject的对象模型，包括主要对象及其属性，并通过具体的代码示例来展示如何使用这些对象和属性。

MSProject对象模型概述

MSProject的对象模型是以层次结构组织的，每个对象都代表了项目中的一个特定元素或集合。这些对象之间通过属性和方法相互关联，形成了一个复杂的网络。以下是一些主要的对象及其关系：

Application：表示MSProject应用程序本身。

Project：表示一个项目文件。

Tasks：表示项目中的所有任务。

Task：表示单个任务。

Resources：表示项目中的所有资源。

Resource：表示单个资源。

Assignments：表示项目中的所有任务分配。

Assignment：表示单个任务分配。

Calendars：表示项目中的所有日历。

Calendar：表示单个日历。

Application对象

原理

Application对象是MSProject对象模型的根对象，它代表了MSProject应用程序本身。通过这个对象，可以访问和操作当前打开的项目文件，执行各种操作，如打开新项目、保存项目、关闭项目等。

属性

ActiveProject：返回当前活动的项目文件。

Version：返回MSProject的版本号。

Caption：返回或设置应用程序窗口的标题。

Projects：返回一个包含所有打开项目文件的集合。

示例

以下是一个简单的示例，展示如何使用Application对象获取当前活动的项目文件并显示其名称。

SubGetActiveProjectName()

获取当前活动的项目文件

DimactiveProjAsProject

SetactiveProj=Application.ActiveProject

显示项目文件的名称

MsgBox当前活动的项目文件名称为:activeProj.Name

EndSub

Project对象

原理

Project对象代表一个项目文件。通过这个对象，可以访问和操作项目中的各种元素，如任务、资源、日历等。Project对象是Projects集合的成员，每个打开的项目文件都有一个对应的Project对象。

属性

Name：返回或设置项目的名称。

FileName：返回项目的文件名。

Tasks：返回项目中的所有任务集合。

Resources：返回项目中的所有资源集合。

Calendars：返回项目中的所有日历集合。

StartDate：返回或设置项目的开始日期。

FinishDate：返回或设置项目的结束日期。

示例

以下示例展示如何创建一个新的项目文件并设置其开始和结束日期。

SubCreateNewProject()

创建一个新的项目文件

DimnewProjAsProject

SetnewProj=Application.Projects.Add

设置项目的名称

newProj.Name=新项目

设置项目的开始日期和结束日期

newProj.StartDate=#1/1/2024#

newProj.FinishDate=#12/31/2024#

保存项目文件

newProj.SaveAsC:\Projects\新项目.mpp

显示项目文件的详细信息

MsgBox项目名称:newProj.NamevbCrLf_

文件名:newProj.FileNamevbCrLf_

开始日期:newProj.StartDatevbCrLf_

结束日期:newProj.FinishDate

EndSub

Tasks集合对象

原理

Tasks集合对象包含项目中的所有任务。通过这个集合，可以添加新任务、删除现有任务、遍历所有任务等。Tasks集合是Project对象的一个属性。

属性

Count：返回集合中任务的数量。

Item：返回集合中的指定任务。

示例

以下示例展示如何遍历项目中的