VBA 绕过对话框的代码

Question

我在 VBA 中有一些代码可以打开 Microsoft Project 文件，提取一些数据，然后关闭该文件。不幸的是，我已经添加了一些指向项目文件的链接，这些链接现在使得它在打开时会弹出一些闪屏。我正在尝试编辑我的代码，以便代码为用户关闭初始屏幕运行宏，这样他们就不会看到或不必响应它们，并且宏会自动继续执行该过程。

这是目前编写的代码（FileToOpen 设置为文件位置）

'Open the MSProject file
        Set mpApp = New MSProject.Application
        mpApp.Visible = True
        AppActivate "Microsoft Project"
        mpApp.FileOpen FileToOpen

然后它收集数据并关闭文件

'Close Project and select Excel as running program
    mpApp.FileClose pjDoNotSave
    mpApp.Quit
    Set mpApp = Nothing

这里有我需要浏览的启动画面，请在此处单击“确定”或“取消”：

单击此处关闭（并非所有其他选项都可能始终显示为灰色）：

任何帮助将不胜感激！！

谢谢！

Answer 1

我会尝试 this:

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

这是我搜索的查询：打开资源池信息对话框vba。 如果在您应用第一次修复后问题仍然存在，我会尝试对其他对话框进行相同的搜索。

HTH

VBA 绕过对话框的代码

VBA Code to Bypass Dialog Box

excel

vba

dialog

ms-project