VBA Shell et Attendre avec le Code de Sortie

Je termine une application office (VBA) qui fait un appel à une application console C# pour effectuer le levage lourd pour l'application (grand programme de simulation). Je voudrais être en mesure d'avoir l'application VBA attendre pour l'application de console à remplir ainsi que de récupérer le code de sortie de l'application console. J'ai été en mesure de le faire à l'ancienne, mais encore être en mesure de récupérer le code de sortie de l'application. Est-il possible que je peux utiliser quelque chose comme

Diagnostics.Process.Start(filePath)

J'ai vu cela dans VB mais vous ne savez pas à propos de VBA. Sinon, toutes les autres suggestions?

OriginalL'auteur Irwin M. Fletcher | 2009-09-17

  1. 13

    Ont un coup d'oeil à WaitForSingleObject et GetExitCodeProcess fonctions.

    Exemple D'Utilisation:

    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
    Je ne suis pas sûr que j'ai suivi. Je suis à la recherche de la fonction VBA pour récupérer le code de sortie de l'application console C#, cela semble être l'inverse.
    ce sont des appels d'API Windows, vous pouvez les utiliser dans une application VBA.
    Désolé, je vais regarder plus loin. Merci
    C'est ce que je cherchais. Merci beaucoup. J'ai deux questions. L'un, quel est le but de la Cmd variable dans la méthode, il ne semble pas être utilisé n'importe où. Deux, est l'appel à DLLErrorText une fonction personnalisée que vous avez créée? Merci encore
    Salut, j'ai mis à jour la solution, les excuses c'était seulement partiellement terminé et j'ai tout oublié!

    OriginalL'auteur James

  2. 3

    Cette fonctionnalité a été enveloppé dans le ShellAndWait fonction.

    Excellente écrire sur elle ici.

    Merci pour l'article. J'avais examiné le présent dans le passé; il ne retourne pas le code de sortie de l'application. Il retourne uniquement un code basé sur si l'application shell se termine avec succès, il ne prend pas en compte le code de sortie de la demande adressée. Par exemple, si l'application de console ne peut pas trouver un fichier, il se termine avec un code de sortie 1, cependant la coquille et le code d'attente sera de retour comme un succès parce que l'application soit correctement terminé.
    Ah, my bad, je n'ai pas d'examen d'assez près. Pas de souci, je pense que James a ci-dessus.

    OriginalL'auteur Mark