Pessoal,

Alguém sabe como faço para criar macros no Excel que executem arquivos .exe?

Usei o código abaixo para iniciar um terminal (extensão .edp) e funciona:

Option Compare Text

Option Explicit

Public extra as object, system as object

------------------------------------------------------------------------------------------------------

Public Function SAC()

Set System = CreateObject("EXTRA.System")

Set Extra = GetObject("c:Arquivos de ProgramasE!PCSessionsSAC.EDP")

Extra.Visible = True

End Function

Já para aplicativos tentei o seguinte. Exemplo:

Option Compare Text

Option Explicit

Public winrar as object, system as object

------------------------------------------------------------------------------------------------------

Public Function Executa()

Set System = CreateObject("winrar.Application”)

Set winrar = GetObject(“C:Arquivos de programasWinRARWinRAR.exe”)

winrar.Visible = True

End Function

Nesse caso recebo a seguinte mensagem de erro:

Erro de tempo de execução ‘429’:

O componente ActiveX não pode criar o objeto

Sou iniciante na programação e já tentei outros códigos para esse caso mas parece que nada funciona. Por favor alguém me ajude!