project

最新推荐文章于 2024-10-04 11:36:17 发布

jacklhf

最新推荐文章于 2024-10-04 11:36:17 发布

阅读量196

点赞数

文章标签： string microsoft 数据库任务 object vba

本文链接：https://blog.csdn.net/jacklhf/article/details/4216073

版权

用project文件导入导出数据的实例，具体操作如下。
首先服务器要装project 标准版。在工程里可以引用microsoft project10.0 object library了。然后定义：

MSProject.ApplicationClass MSapp=new MSProject.ApplicationClass();

如果执行后系统报错：access is denied，那么，请您找到winnt/下的machine.config文件，把username="machine"改成username="system",注意要重新启动IIS。你可以在cmd/iisreset这样操作。虽然这样做不太安全，但为了达到目的，先牺牲一下了。
之后我们可以建.mpp文件：
object Create=true; //创建
object missing = System.Reflection.Missing.Value;//missing值
MSProject.PjFileFormat format=MSProject.PjFileFormat.pjMPP;//format定义
MSProject.PjSaveType savechage= MSProject.PjSaveType.pjSave;//此为保存
MSapp.FileNew(missing,missing,missing,missing);//建立新的文件
MSapp.ActiveProject.ProjectStart="2000-01-01"; //设立整个工程的日期。以至后面大于此日期的不会报错。
MSapp.SelectTaskField(0,"名称",missing,missing,missing,missing,missing);//设立一项任务
MSapp.SetField("名称","number1",Create);
MSapp.SetField("Start","2003-11-6",Create);
MSapp.SetField("Finish","2003-11-10",Create);
MSapp.SetField("资源名称","胡立维",Create);
MSapp.SetField("type","1",Create);
MSapp.SetField("OutlineLevel","1",Create);
MSapp.SetField("PercentComplete","50",Create);
MSapp.FileSaveAs（@"C:/test.mpp",format,missing,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing ,missing);
MSapp.Quit(savechage);
好了，你可以去找C:/test.mpp文件样。

如何通过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.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 Project2003 how to add a menu on the tool bar

http://momy.blogbus.com/logs/29640608.html

Public Sub TestMenu()
    Dim customBar As CommandBar
    Dim newButton As CommandBarButton

    Set customBar = CommandBars("Menu Bar")
    customBar.Reset


    Set mymenu = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=7)
    mymenu.Caption = "My Menu"

    Dim command As CommandBarButton
    Set command = mymenu.Controls.Add

    command.Caption = "Say Hello"
    command.OnAction = "msgbox ""Hello!"""

End Sub

[转]MS Project2003 how to get resource cell value - [技术]

http://momy.blogbus.com/logs/29674565.html

Dim Temp As Long, A As Assignment

Dim TaskName As String, Assigned As String, Results As String

For Temp = 1 To ActiveProject.Tasks.Count

TaskName = "Task: " & ActiveProject.Tasks(Temp).Name & vbCrLf

For Each A In ActiveProject.Tasks(Temp).Assignments

Assigned = A.ResourceName & ListSeparator & " " & Assigned

Next A

If Len(Assigned) > 0 Then
Results = Results & TaskName & "Resources: " & _
Left$(Assigned, Len(Assigned) - Len(ListSeparator & " ")) & vbCrLf & vbCrLf
End If

TaskName = ""

Assigned = ""

Next Temp

MsgBox Results