使用 VBS 以只读方式打开 MS Project 文件答案

【问题标题】：Using VBS to open MS Project file as read only使用 VBS 以只读方式打开 MS Project 文件
【发布时间】：2015-05-28 07:59:12
【问题描述】：

我正在尝试找到一种以只读方式打开 MS Project 文件的快速方法，最好从资源管理器中打开。我正在按照教程负责人使用this tutorial从excel中做同样的事情，它使用以下代码：

'-------------------- Open as Read-Only.vbs --------------------
Option Explicit

Dim app 'As Object

Call OpenAsReadOnly

Sub OpenAsReadOnly()
   On Error Resume Next   
   Set app = GetObject(, "Excel.Application")
   If IsEmpty(app) Then Set app = CreateObject("Excel.Application")

   With app.Workbooks.Open(WScript.Arguments(0))
      If Not .ReadOnly Then .ChangeFileAccess 3 'xlReadOnly
      app.Visible = True
   End With
End Sub

但是当我尝试像这样为项目修改它时：

'-------------------- Open as Read-Only.vbs --------------------
Option Explicit

Dim app 'As Object

Call OpenAsReadOnly

Sub OpenAsReadOnly()
   On Error Resume Next   
   Set app = GetObject(, "MSProject.Application")
   If IsEmpty(app) Then Set app = CreateObject("MSProject.Application")

   With app.Project.Open(WScript.Arguments(0))
      If Not .ReadOnly Then .ChangeFileAccess 3 'xlReadOnly
      app.Visible = True
   End With
End Sub

MS Project 闪烁打开然后关闭。有什么想法吗？

【问题讨论】：

标签： vba ms-project

【解决方案1】：

打开 MS Project 文件的方法是app.FileOpenEx。第一个参数是文件名，第二个参数是 ReadOnly 选项。 MS Project 中没有ChangeFileAccess 方法。

试试这个：

Dim app    
Set app = GetObject(, "MSProject.Application") 
If IsEmpty(app) Then Set app = CreateObject("MSProject.Application")
app.FileOpenEx(WScript.Arguments(0), True)

【讨论】：