Espere o Shell terminar, depois formate as células – execute um comando de forma síncrona

Eu tenho um executável que eu chamo usando o comando shell:

Shell (ThisWorkbook.Path & "\ProcessData.exe") 

O executável faz alguns cálculos e exporta os resultados de volta para o Excel. Eu quero ser capaz de alterar o formato dos resultados depois que eles são exportados.

Em outras palavras, preciso que o comando Shell primeiro aguarde até que o executável conclua sua tarefa, exporte os dados e, em seguida, faça os próximos comandos para formatar.

Eu tentei o Shellandwait() , mas sem muita sorte.

Eu tinha:

 Sub Test() ShellandWait (ThisWorkbook.Path & "\ProcessData.exe") 'Additional lines to format cells as needed End Sub 

Infelizmente, ainda assim, a formatação ocorre antes do final do executável.

Apenas para referência, aqui estava meu código completo usando o ShellandWait

 ' Start the indicated program and wait for it ' to finish, hiding while we wait. Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Private Const INFINITE = &HFFFF Private Sub ShellAndWait(ByVal program_name As String) Dim process_id As Long Dim process_handle As Long ' Start the program. On Error GoTo ShellError process_id = Shell(program_name) On Error GoTo 0 ' Wait for the program to finish. ' Get the process handle. process_handle = OpenProcess(SYNCHRONIZE, 0, process_id) If process_handle  0 Then WaitForSingleObject process_handle, INFINITE CloseHandle process_handle End If Exit Sub ShellError: MsgBox "Error starting task " & _ txtProgram.Text & vbCrLf & _ Err.Description, vbOKOnly Or vbExclamation, _ "Error" End Sub Sub ProcessData() ShellAndWait (ThisWorkbook.Path & "\Datacleanup.exe") Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlTop .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone End Sub 

Tente o object WshShell em vez da function nativa do Shell .

 Dim wsh As Object Set wsh = VBA.CreateObject("WScript.Shell") Dim waitOnReturn As Boolean: waitOnReturn = True Dim windowStyle As Integer: windowStyle = 1 Dim errorCode As Long errorCode = wsh.Run("notepad.exe", windowStyle, waitOnReturn) If errorCode = 0 Then MsgBox "Done! No error to report." Else MsgBox "Program exited with error code " & errorCode & "." End If 

Embora note que:

Se bWaitOnReturn for definido como false (o padrão), o método Run retornará imediatamente após o início do programa, retornando automaticamente 0 (não deve ser interpretado como um código de erro).

Então, para detectar se o programa foi executado com sucesso, você precisa que waitOnReturn seja definido como True, como no exemplo acima. Caso contrário, apenas retornará zero, não importa o quê.

Para vinculação antecipada (dá access ao preenchimento automático), defina uma referência a “modelo de object do host de scripts do Windows” (Ferramentas> Referência> definir marca de seleção) e declare assim:

 Dim wsh As WshShell Set wsh = New WshShell 

Agora, para executar o seu processo em vez do Bloco de Notas … Espero que seu sistema recuse os caminhos que contêm caracteres de espaço ( ...\My Documents\... , ...\Program Files\... , etc.), portanto você deve colocar o caminho em " aspas " :

 Dim pth as String pth = """" & ThisWorkbook.Path & "\ProcessData.exe" & """" errorCode = wsh.Run(pth , windowStyle, waitOnReturn) 

O que você tem vai funcionar quando você adicionar

 Private Const SYNCHRONIZE = &H100000 

qual a sua falta. (Significado 0 está sendo passado como o direito de access ao OpenProcess que não é válido)

Tornar a Option Explicit a linha superior de todos os seus módulos teria levantado um erro neste caso

O método .Run() do object WScript.Shell , conforme demonstrado na resposta útil de Jean-François Corbett, é a escolha certa se você souber que o comando que você invocar terminará no período de tempo esperado.

Abaixo está SyncShell() , uma alternativa que permite que você especifique um tempo limite , inspirado na grande implementação de ShellAndWait() . (O último é um pouco pesado e às vezes uma alternativa mais enxuta é preferível).

 ' Windows API function declarations. Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpExitCodeOut As Long) As Integer ' Synchronously executes the specified command and returns its exit code. ' Waits indefinitely for the command to finish, unless you pass a ' timeout value in seconds for `timeoutInSecs`. Private Function SyncShell(ByVal cmd As String, _ Optional ByVal windowStyle As VbAppWinStyle = vbMinimizedFocus, _ Optional ByVal timeoutInSecs As Double = -1) As Long Dim pid As Long ' PID (process ID) as returned by Shell(). Dim h As Long ' Process handle Dim sts As Long ' WinAPI return value Dim timeoutMs As Long ' WINAPI timeout value Dim exitCode As Long ' Invoke the command (invariably asynchronously) and store the PID returned. ' Note that this invocation may raise an error. pid = Shell(cmd, windowStyle) ' Translate the PIP into a process *handle* with the ' SYNCHRONIZE and PROCESS_QUERY_LIMITED_INFORMATION access rights, ' so we can wait for the process to terminate and query its exit code. ' &H100000 == SYNCHRONIZE, &H1000 == PROCESS_QUERY_LIMITED_INFORMATION h = OpenProcess(&H100000 Or &H1000, 0, pid) If h = 0 Then Err.Raise vbObjectError + 1024, , _ "Failed to obtain process handle for process with ID " & pid & "." End If ' Now wait for the process to terminate. If timeoutInSecs = -1 Then timeoutMs = &HFFFF ' INFINITE Else timeoutMs = timeoutInSecs * 1000 End If sts = WaitForSingleObject(h, timeoutMs) If sts <> 0 Then Err.Raise vbObjectError + 1025, , _ "Waiting for process with ID " & pid & _ " to terminate timed out, or an unexpected error occurred." End If ' Obtain the process's exit code. sts = GetExitCodeProcess(h, exitCode) ' Return value is a BOOL: 1 for true, 0 for false If sts <> 1 Then Err.Raise vbObjectError + 1026, , _ "Failed to obtain exit code for process ID " & pid & "." End If CloseHandle h ' Return the exit code. SyncShell = exitCode End Function ' Example Sub Main() Dim cmd As String Dim exitCode As Long cmd = "Notepad" ' Synchronously invoke the command and wait ' at most 5 seconds for it to terminate. exitCode = SyncShell(cmd, vbNormalFocus, 5) MsgBox "'" & cmd & "' finished with exit code " & exitCode & ".", vbInformation End Sub 

Eu chegaria a isso usando a function Timer . Descobrir mais ou menos quanto tempo você deseja que a macro pause enquanto o .exe faz a sua coisa e, em seguida, altere o ’10’ na linha comentada para qualquer hora (em segundos) que desejar.

 Strt = Timer Shell (ThisWorkbook.Path & "\ProcessData.exe") Do While Timer < Strt + 10 'This line loops the code for 10 seconds Loop UserForm2.Hide 'Additional lines to set formatting 

Isso deve fazer o truque, deixe-me saber se não.

Felicidades, Ben.