Question

我通过Excel打开了总体规划和资源池，但是MSP随机创建了一个包含两个其他文件的Project1。

我希望Excel检查它是否存在并关闭而不保存

Dim ProjApps As new Collection
Dim ProjApp As MSProject.Application
Dim Proj As MSProject.Project

Application.ScreenUpdating = False

Set ProjApp = GetX("MSProject.Application")

ProjApp.Application.AppMaximize
AppActivate ProjApp
SendKeys "{RIGHT}", True
SendKeys "{ENTER}", True

If ProjApp.FileOpenEx(files.MSPRessPool, False, , , , , , , , , , 3) Then
    Set Proj = ProjApp.ActiveProject
    ProjApps.Add Proj
Else
    MsgBox "Fichier non trouvé : " & vbCrLf & files.MSPRessPool
    Exit Sub
End If

If ProjApp.FileOpenEx(files.MasterPlanning, False, , , , , , , , , , 3) Then
    Set Proj = ProjApp.ActiveProject
    ProjApps.Add Proj
Else
    MsgBox "Fichier non trouvé : " & vbCrLf & files.MSPRessPool
    Exit Sub
End If

For each Proj in ProjApps
    Debug.Print Proj.Name
    If Proj.Name = "Project1" then
        Proj.Application.FileCloseEx pjDoNotSave
    End If
Next

Project1文件没有出现在ProjApps集合中，因此我无法将其关闭

如何检查打开的MSP文件？

Answer 1

MS Project对象模型具有Projects object，它是打开的项目的集合，因此您无需创建自己的项目。

.takeWhile(notTimedOut).last

Answer 2

根据Rachel Hettinger的回答，这段代码运行良好：

    For Each Proj In ProjApp.Projects
       Proj.Activate
       If Proj.Name = "Project1" Then
         Proj.Application.FileCloseEx pjDoNotSave
         Exit For
       End If
    Next

这也有用

    For ProjNum = 1 To Projects.Count
       Projects(ProjNum).Activate
       If Projects(ProjNum).Name = "Project1" Then
          Proj.Application.FileCloseEx pjDoNotSave
          Exit For
       End If
    Next ProjNum

外部应用程序：从Excel中循环打开窗口

2 个答案: