Question

我有一个宏，我想用VBS运行。我得到它加载宏但它被卡在“ABC被锁定以进行编辑”的消息。

宏会打开一个文件。如果我运行宏，那么它工作正常。但是当我用脚本运行它时，它会卡在锁定的编辑消息上。

我需要绕过使用只读编辑邮件的任何附加锁定。如果我使应用程序可见，它将显示该消息，我点击“只读”，它将运行正常。

Dim xlApp, xlBook, xlFile
Set xlApp = CreateObject("Excel.Application")

xlApp.Application.Visible = True
xlApp.AlertBeforeOverwriting = False

Set xlFile = xlApp.Workbooks.Open("\\PATH\CDRsyslog.txt", 0, True)
Set xlBook = xlApp.Workbooks.Open("D:\SYSCDR.xlsm", 0, True)

xlFile.ReadOnlyRecommended = True
xlBook.ReadOnlyRecommended = True

xlApp.Run "CDRMACRO.CDRMACRO"

xlBook.Close
xlFile.Close
xlApp.Quit

Set xlBook = Nothing
Set xlApp = Nothing

WScript.Quit

我尝试过（上面实施的更改）

Set xlFile = xlApp.Workbooks.Open("\\FILEPATHANDNAMEHERE", 0, True)

我也尝试更改宏，但我恢复了更改，因为宏运行正常而没有更改。

某处我需要告诉VBS只是以只读方式打开任何其他文件，从而绕过“锁定编辑”消息。

Answer 1

我通过添加readonly在我的宏上解决了它：

Workbooks.Open fileName:="\\PATH\CDRsyslog.txt", ReadOnly:=True

我从VBS文件中删除了它：

Set xlFile = xlApp.Workbooks.Open("\\FILEPATHANDNAMEHERE", 0, True)

如何在EXCEL中绕过额外的锁定编辑消息

1 个答案: