VBA调用程序时，exe程序一闪而过，解决方法

最新推荐文章于 2022-09-04 12:26:16 发布

robot_大菜鸟

最新推荐文章于 2022-09-04 12:26:16 发布

阅读量2.5k

点赞数

分类专栏： VBA 文章标签： vba exe shell

本文链接：https://blog.csdn.net/weixin_45498306/article/details/100774900

版权

VBA 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

在使用vba的时候，出现使用

sub test()
	shell "1.exe"
end sub

程序界面一闪而过，通过查询，应该是，在调用动态连接的时候，没有调用，导致产品异常报错，使用API也可以解决，但是本人小白，只能复制网络的代码，如下，来进行修改：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                                                               ByVal lpOperation As String, _
                                                                               ByVal lpFile As String, _
                                                                               ByVal lpParameters As String, _
                                                                               ByVal lpDirectory As String, _
                                                                               ByVal nShowCmd As Long) As Long


Sub open_exe()
    ShellExecute Application.hwnd, "open", "C:\Users\1.exe", 0, 0, 1
End Sub