如果只使用VBScript打开Excel工作簿，如何运行宏？

Question

世界！

我正在尝试在工作中自动执行报告任务，并且我遇到以下情况：

我需要使用脚本在工作簿上执行宏。我试着写一个vbscript来完成这项工作，这是它的重要部分：

Set objWbk = GetObject("***Path***\test.xlsm")

objWbk.Application.Run "test.xlsm!test" 

WScript.Quit

宏运行完美。我真正的问题是，我只想在工作簿开放时才进行报告。

是否有办法（在vbs或vba中）确定该工作簿是否已打开？ （顺便说一句，它位于我网络上的另一台计算机上）

Answer 1

这尚未经过全面测试，可能需要进行一些修改，但看看它是否能满足您的需求。

On Error Resume Next
Set objWbk = GetObject("***Path***\test.xlsm")

If Err.Number = 0 Then objWbk.Application.Run "test.xlsm!test" 

wScript.Quit