当使用VBA打开MPP项目文件时，防止打开资源池对话框

我有一些代码用于打开Microsoft Project文件，但尽管我一直努力不懈地阻止打开对话框出现或自动应答它。当使用VBA打开MPP项目文件时，防止打开资源池对话框

我试过Application.EnableEvents = False，Application.DisplayAlaerts = False和.FileOpenEx都无济于事。

我将不胜感激。提前致谢。

Public Sub extract_data() 

Dim appProj As MSProject.Application 
Dim aProg As MSProject.Project 
Dim app 
Dim mppApp As MSProject.Application 
Dim Tasks As Tasks 
Dim mpp_file_name As String 
Dim j As Integer 

    Set destination_ws = ThisWorkbook.Worksheets("Imported Vehicles") 
    destination_ws.Cells.Clear 

    file_location = ThisWorkbook.Worksheets("Control Panel").Range("F19").Value 
    file_name = ThisWorkbook.Worksheets("Control Panel").Range("F20").Value 
    file_location_and_name = file_location & file_name 

    Set appProj = CreateObject("Msproject.Application") 

    '--------------------------------------------------------------------- 
    'Set appProj = GetObject(, "MSProject.Application") 
    'If IsEmpty(appProj) Then Set appProj = CreateObject("MSProject.Application") 
    'appProj.FileOpenEx Name:=file_location_and_name, ReadOnly:=True 
    '--------------------------------------------------------------------- 

    Application.EnableEvents = True 
    Set mppApp = CreateObject("msproject.application") 

    mppApp.DisplayAlerts = False 
    mppApp.FileOpen Name:=file_location_and_name, ReadOnly:=True ' Opens file as Read Only 

    mppApp.DisplayAlerts = False 
    Application.EnableEvents = True 

    '--------------------------- WAIT FOR IE TO CATCH UP -------------------------- 
    newHour = Hour(Now()) 
    newMinute = Minute(Now()) 
    newSecond = Second(Now()) + 3 
    waitTime = TimeSerial(newHour, newMinute, newSecond) 
    Application.Wait waitTime 
    '------------------------------------------------------------------------------ 

    Set aProg = mppApp.ActiveProject 
    'aProg.Visible = True 

    Application.SendKeys "{TAB}" 'Enter to OK 
    Application.SendKeys "^~" 'Enter yes to OK 

    'COPY DATA ACROSS code 

    Set mpApp = Nothing 

    DoEvents 

    MsgBox "Data from MS Project File Copied", vbInformation 

End Sub

来源

2014-01-16 mond007

你并不需要切换DisplayAlerts，只需更改文件开行这样的：

mppApp.FileOpen Name:=file_location_and_name, ReadOnly:=True, openPool:=pjDoNotOpenPool

来源

2014-03-10 17:36:37

当使用VBA打开MPP项目文件时，防止打开资源池对话框

回答

相关问题