shell - VBA Excel等待带有ansys的shell完成

Question

我写了一个宏来运行 Ansys，如果 Ansys 关闭，宏应该继续运行。

我的问题是我用一些脚本运行 Ansys，所以运行它的代码是

retval = shell("C:\...\runwb2 -X -R C:\...\Script.py -F C:\...\Workbenchproject.wbpj", vbNormalFocus)

这工作得很好，直到我想等待它完成

使用

Dim wsh As Object  
Set wsh = VBA.CreateObject("WScript.Shell") 
cmd = "C:\...\runwb2 -X -R C:\...\Script.py -F C:\...\Workbenchproject.wbpj"  
retval = wsh.Run(cmd, 1,True)

给我一个运行时错误 -2147024894 (0x80070002)

如果可能的话，我不想使用像我之前发现的 ShellAndWait 这样大的东西，只是一些简单的东西

提前致谢

Answer 1

暂停五秒钟......

'// Start Code Snippet

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 5)

'// End Code Snippet

但是，根据您的代码，您将 WaitOnReturn 设置为 TRUE，这应该执行您希望它执行的操作……所以我不知道您为什么会收到错误消息。让我知道这是否有帮助..谢谢，布赖恩

Answer 2

如果发现我的问题。运行 ANSYS Workbench 的路径是文件夹“ANSYS Inc”的默认安装路径，如果我使用 shell()，空间不是问题，但如果我使用 WScript.Shell，空间会产生运行时错误。我不得不改变路径，所以没有更多的空间，现在它工作正常