如何通过VBA操纵Microsoft Project

原创 2006年06月12日 22:18:00

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

下面是我通过VB.Ne写得t调用VBA操纵MS Project的一个通用类。
该类实现了创建|打开Project文件,添加任务,升级|降级任务,保存Project等常用功能。

详情请看注释。

Public Class Project
    '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();

如何通过VBA操纵Microsoft Project

有时我们需要知道某台机器上安装了哪些软件或者是否安装了某个软件,这样我们必须通过读取注册表的方式来得到这种信息。通常我们在SOFTWARE/Microsoft/Windows/CurrentVersi...
  • new_life
  • new_life
  • 2006年05月28日 23:47
  • 2000

如何通过VBA操纵Microsoft Project

有时我们需要通过程序来操纵MS Project(我们公司曾需要将公司已有的项目管理平台中的任务导入MS Project),Project与其他的微软Office软件,Word、Excel类似,都可通过...
  • freedomsky120
  • freedomsky120
  • 2007年12月24日 16:06
  • 441

通过VBA操纵Microsoft Word的通用类

#Region "文件说明"*************************************************************************** * * 文件名:Wo...
  • new_life
  • new_life
  • 2006年06月26日 16:48
  • 1942

忘记vba project密码

一, .xls 1. 用HEX编辑器,查找“DPB=”替换成”DPx=“ 2. 打开.xls  然后Alt + F11 打开VBE。 期间会有很多错误提示,都按‘确定’。 3. 在项目名称上右键...
  • linzi_0833
  • linzi_0833
  • 2015年01月15日 14:51
  • 1495

Microsoft Project发展历史!

Project发展历程回顾   早80年代中期,微软公司就研究开发出了项目管理软件Project的DOS版本。   1990年,微软推出了世界上第一个基于WINDOWS环境下的Project 1....
  • accado
  • accado
  • 2012年07月19日 14:05
  • 3277

microsoft project 2010专业版带破解工具.zip下载地址

今天安装microsoft project 2010弄了我半天时间,终于找到下载地址,我是用的百度云盘下载的,这里面还有其他破解工具下载。...
  • qq_15055139
  • qq_15055139
  • 2017年04月01日 16:20
  • 1728

Microsoft Project 2010 简体中文专业版 + 永久激活密钥

转自:http://blog.sina.com.cn/s/blog_476953830101p32l.html Microsoft Project已成为了世界上最受欢迎的项目管理软件。它代表...
  • suyu_yuan
  • suyu_yuan
  • 2016年11月16日 18:12
  • 4283

Microsoft Office Project 2010 操作手册

英文界面版 一、启动阶段   1. 前期准备   (1)新建项目文件   选择 File — NewNew 菜单, 选择项目模版   打开项目文件, 看见任务表格...
  • wangshfa
  • wangshfa
  • 2014年07月17日 22:06
  • 8340

通过VBA操纵Excel的通用类库

下面的这个类ExcelLibrary是一个非常通用的通过VBA操纵Excel的类, 是我在工作中总结,整理,借鉴(借鉴了一些微软的例子)并多次改进和使用的,现在在这里共享给大家. 起初程序没有注释,为...
  • new_life
  • new_life
  • 2006年06月15日 12:30
  • 2133

Spring Boot+JPA+Mysql完成数据库整合操作

Spring Boot结合JPA操作Mysql数据库十分方便,可以做到零配置文件。具体流程如下。 一、Maven依赖 ...
  • Lammonpeter
  • Lammonpeter
  • 2017年10月31日 14:22
  • 172
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何通过VBA操纵Microsoft Project
举报原因:
原因补充:

(最多只允许输入30个字)