从Excel中运行c＃控制台应用程序并等待应用程序完成

我使用下面的代码行从Excel中运行AC＃控制台应用程序。 代码工作正常。 这个过程需要大约20秒的时间来运行。 我想知道如何让我的VBA代码等待C＃应用程序完成继续执行该行后面的代码？

我不想使用暂停或类似的function。

Dim id As Integer id=Shell("""C:\MyFolder\bin\Debug\MyApp.exe"" /PARA1 " & p1 & " /PARA2 " & p2, vbNormalFocus) 

Answer 1

你可以尝试这个代码（从这篇文章的启发）：

 Dim id As Integer Dim wsh As Object Set wsh = VBA.CreateObject("WScript.Shell") Dim waitOnReturn As Boolean: waitOnReturn = True Dim windowStyle As Integer: windowStyle = 1 id = wsh.Run("""C:\MyFolder\bin\Debug\MyApp.exe"" /PARA1 " & p1 & " /PARA2 " & p2, windowStyle, waitOnReturn)