VBA Excel等待带有ansys的shell完成答案

【问题标题】：VBA Excel wait for shell with ansys to finishVBA Excel等待带有ansys的shell完成
【发布时间】：2013-08-29 12:40:46
【问题描述】：

我编写了一个宏来运行 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 这样大的东西，只是一些简单的东西

提前致谢

【问题讨论】：

标签： shell vba excel

【解决方案1】：

暂停五秒钟......

'// Start Code Snippet

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

'// End Code Snippet

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

【讨论】：

【解决方案2】：

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

【讨论】：