通过shell命令运行.exe - 程序闪烁打开和关闭

Question

因此，尝试通过我的vba打开.exe文件时遇到问题。基本上我想打开exe给它一些关键的笔画来获得输出，然后使用该输出。

然而，每当我使用SHELL功能打开exe时，它只是在屏幕上闪烁打开和关闭，或者给出一些焦点选项只会给我你的程序崩溃通知。

我使用的代码很简单

Sub Run_exe()
Shell ThisWorkbook.Path & "\mlt932w.exe", vbMaximizedFocus
End Sub

我知道这可能是该程序的一个问题而与vba无关，我只是想知道是否有人遇到类似的问题而且能够解决它？

感谢您的帮助

Answer 1

由于您运行的应用程序可能正在退出控制终端（cmd），我认为您需要在包装程序bat文件中运行它，该文件启动另一个cmd实例来执行该程序。

创建一个start_app.bat（在ThisWorkbook.Path）文件中，其中包含：

@echo off
cmd /c %0\..\mlt932w.exe
pause

然后尝试从VBA启动.bat文件：

Sub Run_exe()
Shell ThisWorkbook.Path & "\start_app.bat", vbMaximizedFocus
End Sub

Answer 2

我已经写了下面的代码来打开.exe文件，但是它不起作用。

Sub testF2()

Dim Program As Integer
Program = Shell(ThisWorkbook.Path & "\Tool\missra\missra.bat", vbMaximizedFocus)
AppActivate (Program)

End Sub