Esperar aplicativo externo rodar (Shell) antes de continuar.
Enviado: 25 Jan 2016 às 15:59
Prezados. Gostaria por gentileza de uma ajuda sobre o uso da função Shell.
Fiz uma macro para gerar gerar relatórios baseados em dados e gráficos.
As planilhas são calculadas e organizadas com a macro.
Os gráficos são gerados por um aplicativo *.exe e somente depois são inseridos no relatório via macro.
O problema é que a macro não espera o aplicativo gerar os gráficos, dando assim um erro.
Gostaria de ajuda para informar na macro para esperar o aplicativo rodar e continuar a macro apenas quando ele terminar (rodar em série e não em paralelo).
Segue trecho da macro onde executo o aplicativo externo para gerar meus gráficos.
_____________________________________________________________________
Sub macro()
'
Application.Goto Reference:="macro"
'Limpar dado mensal da pasta mes
Plan2.Activate
Plan2.Range("A1:Z6000").Value = ""
' Roda executável para gerar gráficos desejados
ChDir Application.ThisWorkbook.Path
Dim RetVal
RetVal = Shell("C:\caminho\WTGraphR10b.exe", 1)
Restante da macro...
____________________________________________________________________
Agradeço
Fiz uma macro para gerar gerar relatórios baseados em dados e gráficos.
As planilhas são calculadas e organizadas com a macro.
Os gráficos são gerados por um aplicativo *.exe e somente depois são inseridos no relatório via macro.
O problema é que a macro não espera o aplicativo gerar os gráficos, dando assim um erro.
Gostaria de ajuda para informar na macro para esperar o aplicativo rodar e continuar a macro apenas quando ele terminar (rodar em série e não em paralelo).
Segue trecho da macro onde executo o aplicativo externo para gerar meus gráficos.
_____________________________________________________________________
Sub macro()
'
Application.Goto Reference:="macro"
'Limpar dado mensal da pasta mes
Plan2.Activate
Plan2.Range("A1:Z6000").Value = ""
' Roda executável para gerar gráficos desejados
ChDir Application.ThisWorkbook.Path
Dim RetVal
RetVal = Shell("C:\caminho\WTGraphR10b.exe", 1)
Restante da macro...
____________________________________________________________________
Agradeço