| 订阅 | 在线投稿
分享
 
 
 

如何通过VBA操纵Microsoft Project - 孙振芳

来源:互联网  宽屏版  评论
2006-06-13 19:25:53

有时我们需要通过程序来操纵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.Application

End Sub

Public 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 Sub

Public Sub NewProject(ByVal tmpFileName As String)

Dim TemplateName As Object = tmpFileName

mPrjApp.FileNew(False, TemplateName)

End Sub

Public Sub SaveAs(ByVal FilePath As String)

If IO.File.Exists(FilePath) Then

IO.File.Delete(FilePath)

End If

mPrjApp.FileSaveAs(FilePath, MSProject.PjFileFormat.pjMPP)

End Sub

Public 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 = 1

End Sub

Public Sub Degrade()

mPrjApp.OutlineIndent(1)

End Sub

Public Sub Upgrade()

mPrjApp.OutlineOutdent(1)

End Sub

Public Sub Close()

mPrjApp.FileCloseAll(MSProject.PjSaveType.pjDoNotSave)

mPrjApp.Quit()

End Sub

End Class

该类使用例子(C#):

Project prj = new Project();

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

prj.AddTask("任务一","2004-08-09","2004-09-09","小明");

prj.SaveAs("D:\Test\Test.mpp");

prj.Close();

 
有时我们需要通过程序来操纵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.Application End Sub Public 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 Sub Public Sub NewProject(ByVal tmpFileName As String) Dim TemplateName As Object = tmpFileName mPrjApp.FileNew(False, TemplateName) End Sub Public Sub SaveAs(ByVal FilePath As String) If IO.File.Exists(FilePath) Then IO.File.Delete(FilePath) End If mPrjApp.FileSaveAs(FilePath, MSProject.PjFileFormat.pjMPP) End Sub Public 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 = 1 End Sub Public Sub Degrade() mPrjApp.OutlineIndent(1) End Sub Public Sub Upgrade() mPrjApp.OutlineOutdent(1) End Sub Public Sub Close() mPrjApp.FileCloseAll(MSProject.PjSaveType.pjDoNotSave) mPrjApp.Quit() End Sub End Class 该类使用例子(C#): Project prj = new Project(); prj.NewProject("D:\Test\Test.mpp"); prj.AddTask("任务一","2004-08-09","2004-09-09","小明"); prj.SaveAs("D:\Test\Test.mpp"); prj.Close();
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有