如何通过VBA *** 纵Microsoft Project

有时我们需要通过程序来 *** 纵MS Project（我们公司曾需要将公司已有的项目管理平台中的任务导入MS Project），Project与其他的微软Office软件，Word、Excel类似，都可通过VBA来对其 *** 作。

下面是我通过VB.Ne写得t调用VBA *** 纵MS Project的一个通用类。

该类实现了创建 打开Project文件，添加任务，升级 降级任务，保存Project等常用功能。

详情请看注释。

Public Class Project

'Written by Sun Zhenfang 041201

Dim mPrjApp As MSProject.Application'在VB.Net中引用MSProject类库

Dim mRow As Integer = 0'记录Project中任务的行号

Public Sub New()

mPrjApp = New MSProject.ApplicationEnd SubPublic Sub NewProject()

mPrjApp.FileNew()'新建一个Project文件End Sub'Project可以另存为一个数据库，如果存储为数据库，我们可以通过ODBC来直接打开这个Project文件

'当然如果你对Project这个数据库比较熟悉，也可以直接 *** 数据库中的数据来实现对Project文件的修改，微软虽然提供了数据库的结构说明，但不是很详尽，这方面的官方资料相对很少。后续我将写一篇关于通过ODBC *** 纵Project数据库的文章。

Public Sub Open(ByVal ODBCName As String, ByVal ProjectName As String)

mPrjApp.FileOpen("<" + ODBCName + ">\" + ProjectName)End SubPublic Sub NewProject(ByVal tmpFileName As String)

Dim TemplateName As Object = tmpFileName

mPrjApp.FileNew(False, TemplateName)End SubPublic Sub SaveAs(ByVal FilePath As String)

If IO.File.Exists(FilePath) Then

IO.File.Delete(FilePath)End IfmPrjApp.FileSaveAs(FilePath, MSProject.PjFileFormat.pjMPP)End SubPublic Sub AddTask(ByVal TaskName As String, ByVal StartDate As String, ByVal FinishDate As String, Optional ByVal Resource As String = "")

mPrjApp.SelectTaskField(mRow, "名称")

mPrjApp.SetTaskField("名称", TaskName)

mPrjApp.SetTaskField("开始时间", StartDate)

mPrjApp.SetTaskField("完成时间", FinishDate)

mPrjApp.SetTaskField("资源名称", Resource)'这里的资源表示将任务分配给谁mRow = 1End SubPublic Sub Degrade()

mPrjApp.OutlineIndent(1)End SubPublic Sub Upgrade()

mPrjApp.OutlineOutdent(1)End SubPublic Sub Close()

mPrjApp.FileCloseAll(MSProject.PjSaveType.pjDoNotSave)

mPrjApp.Quit()End SubEnd Class该类使用例子(C#):

Project prj = new Project()

prj.NewProject("D:\Test\Test.mpp")

project中的工期项设置为公式自动计算：工期项在输入任务的起始日期后就自动生成。

Microsoft Project（或MSP）是由微软开发销售的项目管理软件程序。软件设计目的在于协助项目经理发展计划、为任务分配资源、跟踪进度、管理预算和分析工作量。

本应用程序可产生关键路径日程表──虽然第三方ProChain和Spherical Angle也有提供关键链关联软件。日程表可以以资源标准的，而且关键链以甘特图形象化。另外，Project可以辨认不同类别的用户。这些不同类的用户对专案、概观、和其它资料有不同的访问级别。自订物件如行事历、观看方式、表格、筛选器和字段在企业领域分享给所有用户。

在较新版微软Office里，Project的功能随着微软Office Project Server与微软Project Web Access导入而延伸。Project server存储Project数据于核心数据库、并允许用户通过互联网显示和更新数据。Web Access允许授权用户横跨互联网访问Project Server数据库，这包括工时表、资源工作量的图形分析、和后台管理工具。

作为微软Office套餐的一部分，该软件的最新版本同时和PowerPoint和Visio产品一样提供交错功能。Microsoft Project 2010 具有一个崭新的界面，但还不止这些。在新的外观之下，它还包含功能强大的新的日程排定、任务管理和视图改进，能够更好地控制如何管理和呈现项目。

---