[VBA]同步运行外部可执行文件

oudaisei

Private Declare Function WaitForSingleObject Lib "kernel32" _
                         (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
                         (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
                         (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Private Sub ShellTest()
    Dim iTask As Long, ret As Long, pHandle As Long
    iTask = Shell("notepad.exe", vbNormalFocus)
    pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
    ret = WaitForSingleObject(pHandle, INFINITE)
    ret = CloseHandle(pHandle)
    MsgBox "Process Finished!"
End Sub

kevinchan2006

不错！谢谢楼主

lianjianke

直接调用不就行了吗？
Sub test()
Call Shell("notepad.exe", vbNormalFocus)
End Sub