使用VBScript以独占模式打开Excel文件

Question

我有一个简单的问题,但我搜索了这个,找不到任何有用的主题..

我正在开发一个VBScript,它打开一个Excel文件并修改其中的一些内容..所以我正在使用这段代码:

    Set objXLApp = CreateObject("Excel.Application")

    objXLApp.Visible = False
    objXLApp.DisplayAlerts = False

    Set objXLWb = objXLApp.Workbooks.Open(FilePath)

现在,我想要做的是使用一种锁定文件的方式打开Excel文件,并防止用户在脚本打开时打开它(直到它关闭).

更新:

我认为问题以某种方式与Excel实例有关,我尝试执行以下操作(当文件由脚本打开时):

• 当我手动打开文件(当它由脚本打开时)时,它们都成为单个实例.
• 当我打开他们都是任何其他Excel文件也成为一个实例!并且原始文件(由脚本打开)变得可见!

现在这很奇怪,因为我正在使用CreateObject("Excel.Application")而不是GetObject(, "Excel.Application")

Answer 1

HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\commandWin 7 Excel 2010 上有一个默认值的注册表项"C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" /dde。命令行/dde开关启用 DDE（动态数据交换机制 - 一种古老的 Win 3.0 进程间通信方法），强制 Excel 在单个实例中启动。我尝试删除该开关并打开工作簿，但无济于事。顺便说一句，如果您没有编辑注册表的权限，或者您打算将脚本分发给没有权限的人，那么这不是一种方法。也尝试过这个答案，但它不适用于 Win 7 Office 2010。

我已经test.xlsm在启用 DDE 的情况下测试了文件。当用户打开文件时，实际上它只是在现有实例中重新打开以使其可见。如果脚本已进行任何更改，Excel 会发出警报：

无论如何，都为用户提供了写访问权限。之后，当脚本保存文件时，会出现另一个警报：

不久前，我创建了一个与 Excel 应用程序一起使用的脚本，并在 Win 7 Excel 2010 中遇到了与您所描述的相同的问题。我注意到，如果使用脚本内创建了多个 Excel 应用程序实例CreateObject()，则用户打开的 Excel 文件始终使用第一个创建的实例。我通过创建两个不可见的 Excel 应用程序实例（假设为虚拟实例和目标实例）解决了该问题。脚本的算法概述如下：

1. 首先创建虚拟实例，无需添加工作簿。之后，虚拟实例会暴露一个 Excel 文件，供用户在其中打开。
2. 创建目标实例。
3. 退出虚拟实例。
4. 打开目标工作簿，修改并保存。
5. 退出目标实例。

考虑下面的代码，它说明了实现您所需的可能方法：

' target file path
sPath = "C:\Users\DELL\Desktop\test.xlsm"
' create dummy instance
Set oExcelAppDummy = CreateObject("Excel.Application")
' create target instance
Set oExcelApp = CreateObject("Excel.Application")
' quit dummy instance
oExcelAppDummy.Quit
' open target workbook
With oExcelApp
    .Visible = False
    .DisplayAlerts = False
    Set oWB = .Workbooks.Open(sPath)
End With
' make some changes and save
Set oWS = oWB.Sheets(1)
oWS.Cells(1, 1).Value = Now()
oWB.Save
' give additional time for test
MsgBox "Try to open test.xlsm, OK to end the script"
' close target workbook
oWB.Close
' quit target instance
oExcelApp.Quit

尝试打开该文件，您将获得所需的输出：

以及脚本结束后的通知：