用ansys等shell完成VBA Excel

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

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

Answer 2

暂停五秒钟..。

'// Start Code Snippet

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

'// End Code Snippet

但是，根据您的代码，您将WaitOnReturn设置为TRUE，这应该是您希望它做的事情.所以我不知道你为什么会出错。让我知道这是否有帮助..。谢谢你，布莱恩