等用Shell調用的程序執行完成后再執行其它程序(VBA)

来源：百度文库编辑：神马文学网时间：2024/06/13 01:16:24

Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal
dwProcessId As Long) As Long
Public Const INFINITE = -1&
Public Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
    Dim i As Long
    Dim r As Long
    Dim p As Long
    i = Shell("NOTEPAD.EXE", vbNormalFocus)
    p = OpenProcess(SYNCHRONIZE, False, i)
    r = WaitForSingleObject(p, INFINITE)
    r = CloseHandle(p)
    MsgBox "Program Close"
End Sub

等用Shell調用的程序執行完成后再執行其它程序(VBA) 用Shell扩展实现源代码统计程序为VBA程序加速 VBA程序集链接 Shell程序实例集锦一 Shell程序集锦二－短信报警程序（Shell和Java） - 许亿的博客 - 51CTO... 即刻完成你的ASP.NET程序 Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel... Excel Excel VBA的常用命令举例 - ExcelVBA程序开发 - Excel... Excel [求助]用１个vba在两个单元格做两种排序 - ExcelVBA程序开发 - ... Unix系列shell程序编写(上) Unix系列shell程序编写(上) Unix系列shell程序编写(上) vba 侦测离开Form进入其他程序用strace调试程序用GDB调试程序用GDB调试程序用GDB调试程序用GDB调试程序用GDB调试程序用GDB调试程序 Winter实验室: 强大的Sed命令--背唐诗的Shell小程序嘻嘻哈哈的部落格(blog) ? 在shell程序中用vim删除掉文件的最后一行 Linux库文件和Shell可执行程序命令文件搜索路径变量的设置