关闭

如何通过VBA操纵Microsoft Project

标签: vbamicrosoftstring数据库任务vb.net
1665人阅读 评论(0) 收藏 举报

有时我们需要知道某台机器上安装了哪些软件或者是否安装了某个软件,这样我们必须通过读取注册表的方式来得到这种信息。通常我们在SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall键下得到软件信息。下面是我在工作中的一个例子。

'200603
Const HKEY_LOCAL_MACHINE = &H80000002

Set Shell = CreateObject("WScript.Network")
strComputer = Shell.ComputerName' 此处我们通过WScript.Network得到的ComputerName为运行此段VBS脚本的计算件名,若改为其他机器的名字,并具有一定的权限,将可以得到那台计算机上已安装的软件列表

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & strComputer & "/root/default:StdRegProv")

strKeyPath = "SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

Num = 0
Dim strArray()
For Each Subkey in arrSubKeys
  strDetail = strKeyPath & "/" & SubKey
  objReg.EnumValues HKEY_LOCAL_MACHINE, strDetail,arrEntryNames,arrValueTypes
  objReg.GetStringValue HKEY_LOCAL_MACHINE, strDetail, "DisplayName", strValue
  If Not IsNull(strValue) Then
    ReDim Preserve strArray(Num+1)
        strArray(Num) = strValue
    Num = Num + 1
  End If
Next

' 将得到的结果排序
For i=0 To UBound(strArray)-1
    For j=i+1 To UBound(strArray)-1
     If(strArray(i)>strArray(j)) Then
      tmp = strArray(i)
      strArray(i) = strArray(j)
      strArray(j) = tmp
     End If 
 Next
Next

'将得到的结果输出到一个以计算机名命名的文本文件中
Set fso = CreateObject("Scripting.FileSystemObject")
Set fle = fso.CreateTextFile(strComputer + ".txt", True)
For k=0 To UBound(strArray)-1
 fle.WriteLine(strArray(k))  
Next
fle.Close()

将上述代码存成一个VBS文件,运行后将得到一个以计算机名命名的文本文件,打开这个文本文件,你就能看到你的计算机上装了什么软件了,看看和添加/删除程序里面是否一样?

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:51009次
    • 积分:815
    • 等级:
    • 排名:千里之外
    • 原创:27篇
    • 转载:2篇
    • 译文:1篇
    • 评论:14条
    最新评论