VBA - 在宏中执行或运行 .bat 文件

Question

我一直在尝试通过创建脚本和宏等为我工作的一些用户自动执行一系列管理事件。

这些脚本和宏非常有用，但是，我想通过运行一个系统地执行脚本和宏的批处理文件来使用户的过程更加轻松。

我目前拥有的批处理文件，一个一个地调用所有脚本，最后一个脚本打开其中包含一些宏的 xlsm 工作簿之一 - 这就是问题所在 - 仍然有脚本可以可以执行，但它们只能在该工作簿执行完所有宏后才能执行。

所以我最初的想法是测试工作簿是否打开，如果是，则延迟一分钟左右执行下一个脚本，然后反复测试...直到关闭..然后我想从宏中执行下一组脚本(也在批处理文件中)可能会更容易。

所以，我有这段代码:

Sub Run_BAT()

    Set obj = CreateObject("Wscript.Shell")

    obj.Run Chr(34) & "X:\Test\" & "Termination Reports Scripts\" & "Execute_Terminations.bat" & Chr(34), 0, True

    Set obj = Nothing

End Sub

这给了我一个错误:

Permission Denied

然后就是这段代码:

Sub WriteAndRunBatFile()

Call Shell("X:\Test\Termination Reports Scripts\Execute_Terminations.bat")

End Sub

这给了我错误:

Invalid procedure call

任何包含“Shell”命令的代码示例都会出现此错误。

Answer 1

将您的 bat 文件路径放在引号中:

Call Shell("cmd/c ""S:/somebatfile.bat""", vbNormalFocus)