vb6 - Microsoft Project：关闭时防止弹出保存文件

Question

我正在使用 Microsoft Project 2016 执行一些 Office 自动化。如果我打开 2016 mpp 文件没有问题，我可以关闭应用程序。但是，如果我在 MS Project 2016 上打开 2003 或 2007 文件，则在关闭应用程序时总是会弹出一个窗口，要求我将文件升级到较新版本。

由于在自动化中无法与此对话框进行交互，因此它完全阻塞了进程并破坏了应用程序。

是否有任何注册表项或配置可以在 Office 或 MS Project 中完成以在关闭时禁用此文件升级弹出窗口？

Dim objMPP As New MSProject.Application

objMPP.Visible = True
objMPP.DisplayAlerts = False
objMPP.ShowWelcome = False

If Not objMPP.FileOpenEx(strFile, True, NoAuto:=True, openpool:=pjPoolReadOnly, ignorereadonlyrecommended:=True) Then
    Exit Function
End If

... some more code code here

objMPP.FileCloseAllEx

Set objMPP = Nothing

标签： vb6ms-officeoffice-interopms-project