VBA 中的 ShellExecuteEx

Question

我了解如何在 VBA 中使用 ShellExecute（对于我的 Outlook 宏），但我希望能够使用 ShellExecuteEx 来等待脚本中执行的程序。有人有如何执行此操作的示例吗？目前我有这样的代码：

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public 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

'// Properties API
Private Type SHELLEXECUTEINFO
    cbSize       As Long
    fMask        As Long
    Hwnd         As Long
    lpVerb       As String
    lpFile       As String
    lpParameters As String
    lpDirectory  As String
    nShow        As Long
    hInstApp     As Long
    lpIDList     As Long
    lpClass      As String
    hkeyClass    As Long
    dwHotKey     As Long
    hIcon        As Long
    hProcess     As Long
End Type

Private Declare Function ShellExecuteEx _
    Lib "shell32.dll" ( _
        Prop As SHELLEXECUTEINFO) _
As Long

Public Function fnGetPropDlg(strFilepath As String) As Long
Dim Prop As SHELLEXECUTEINFO

With Prop
    .cbSize = Len(Prop)
    .fMask = &HC
    .Hwnd = 0&
    .lpVerb = "properties"
    .lpFile = strFilepath
End With

fnGetPropDlg = ShellExecuteEx(Prop)

End Function

然后我的代码调用实际程序（使用 ShellExecute）：

RetVal = ShellExecute(0, "open", "C:\Documents and Settings\my\Desktop\zipTools.hta", "", "", SW_SHOWMAXIMIZED)

任何人都可以提供任何帮助来切换此功能，以便我可以使用 ShellExecuteEx 在脚本执行继续之前等待我的 HTA 关闭吗？

Answer 1

老问题，但这里有一个简单得多的答案：

VBA Shell &等等：简单的方法！

Sub ShellAndWait(pathFile As String)
    With CreateObject("WScript.Shell")
        .Run pathFile, 1, True
    End With
End Sub

（您甚至可以将其压缩为一行，但这更容易阅读。）

---

示例用法：

Sub demo_Wait()
    ShellAndWait ("notepad.exe")
    Beep 'this won't run until Notepad window is closed
    MsgBox "Done!"
End Sub

---

改编自（以及更多选项）Chip Pearson 网站。

Answer 2

请改用 CreateProcess() Windows API 调用。

要运行进程并等待其完成，请使用 Microsoft 推荐的解决方案< /a> 调用CreateProcessA()。不要使用ShellExecuteEx()。 （您也可以考虑替换您现有的代码。）

原因：

1. 由制造商直接推荐。其背后可能有多种原因，包括最近的一个：

2. 它很稳定。 ShellExecuteEx() 据报告在最近 (2015) Windows 更新后调用时会抛出异常来自VBA。

在上述链接问题的答案中，Microsoft 文章中的代码可以作为单独的 VBA 模块使用。

Answer 3

如果我没记错的话，您需要设置 < /a>

SEE_MASK_NOASYNC

bit in the fMask parameter.

Const SEE_MASK_NOASYNC As Long = &h0&
With Prop    
    .fMask = &HC Or SEE_MASK_NOASYNC
End With

编辑

嗯，我也无法让它工作。您是否考虑过 GetFileInformationByHandle？

Answer 4

事实上，上面的建议

Sub ShellAndWait(pathFile As String) With CreateObject("WScript.Shell") .Run pathFile, 1, True End With End Sub

很简单并且有效！

值 1 指定显示窗口，0 为默认值。 True 值指定等待完成；错误立即返回。

pathFile 遵循在批处理文件中使用的正常构造规则 - 如果需要，请将程序路径和名称放在引号中，并且后面可以跟参数。