VBA Shell and Wait with Exit Code

by

Have a look at WaitForSingleObject and GetExitCodeProcess functions.

Example Usage:

Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds 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 Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long

Public Const INFINITE = &HFFFF
Public Const PROCESS_ALL_ACCESS = &H1F0FFF

Sub RunApplication(ByVal Cmd as String)

    lTaskID = Shell(Cmd, vbNormalFocus)
    ' Get process handle
    lPID = OpenProcess(PROCESS_ALL_ACCESS, True, lTaskID)
    If lPID Then
        ' Wait for process to finish
        Call WaitForSingleObject(lPID, INFINITE)
        ' Get Exit Process
        If GetExitCodeProcess(lPID, lExitCode) Then
            ' Received value
            MsgBox "Successfully returned " & lExitCode, vbInformation
        Else
            MsgBox "Failed: " & DLLErrorText(Err.LastDllError), vbCritical
        End If
    Else
        MsgBox "Failed: " & DLLErrorText(Err.LastDllError), vbCritical
    End If
    lTaskID = CloseHandle(lPID)
End Sub

Public Function DLLErrorText(ByVal lLastDLLError As Long) As String
    Dim sBuff As String * 256
    Dim lCount As Long
    Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100, FORMAT_MESSAGE_ARGUMENT_ARRAY = &H2000
    Const FORMAT_MESSAGE_FROM_HMODULE = &H800, FORMAT_MESSAGE_FROM_STRING = &H400
    Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000, FORMAT_MESSAGE_IGNORE_INSERTS = &H200
    Const FORMAT_MESSAGE_MAX_WIDTH_MASK = &HFF

    lCount = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS, 0, lLastDLLError, 0&, sBuff, Len(sBuff), ByVal 0)
    If lCount Then
        DLLErrorText = Left$(sBuff, lCount - 2) ' Remove line feeds
    End If

End Function

More Related Contents:

  1. Capture output value from a shell command in VBA?
  2. Wait for Shell to finish, then format cells – synchronously execute a command
  3. Execute a command in command prompt using excel VBA
  4. How do I get values from a hidden worksheet using VBA [closed]
  5. How to copy cells that contain certain text to another worksheet [closed]
  6. VBA Macro for copying and pasting columns on same excel sheet
  7. How to add default signature in Outlook
  8. Levenshtein Distance in VBA [closed]
  9. VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range
  10. How do I base64 encode a string efficiently using Excel VBA?
  11. Assign event handlers to controls on user form created dynamically in VBA
  12. How to move each emails from inbox to a sub-folder [duplicate]
  13. Automate saveas dialogue for IE9 (vba)
  14. How to use Events with Option Button Controls on Userform [duplicate]
  15. How do I use variables to set properties in VBA (Excel)
  16. VBA: Else without If Error
  17. Windows().Activate works on every computer except one
  18. How do I open an outlook .msg file from my harddrive that is NOT in outlook?
  19. Convert RTF (Rich Text Format) code into plain text in Excel
  20. VBA: How long does On Error Resume Next work?
  21. How can I create text files with special characters in their filenames
  22. Open a workbook from VBA and disable Workbook_Open() code?
  23. How to filter listbox values based on a Textbox value
  24. Text To Clipboard in VBA Windows 10 Issue
  25. How can I automatically populate the VBA Editor with line numbers?
  26. Calling regasm without administrative rights for COM interop in Excel VBA
  27. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  28. How do I activate a specific workbook and a specific sheet?
  29. Call a Unix Script from Excel Vba
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment