Conexão entre 2 ou mais executáveis, um abrir o outro e compartilhar dados


#1

Tenho um executável (.exe) Excel que necessita em tempo de execução abrir outro executável (.exe) Excel. O 1º .exe chama rotinas do 2º .exe, que executa uma consulta SQL e retorna ao 1º .exe o restultado.

Como .xlsm está funcionando, mas ao compilar para .exe não consigo. É necessário que os dois arquivos sejam .exe

É possível conexão entre 2 ou mais executáveis, e um executável abrir o outro em tempo de execução?

Grato.


#2

Nós escrevemos para você com uma tradução automática porque falamos apenas francês ou inglês.
Para executar um EXE de sua pasta de trabalho do Excel, você deve fornecer o caminho completo para o EXE. Se assumirmos que você está colocando o EXE no mesmo diretório que sua pasta de trabalho do Excel e estiver usando ThisWorkbook.Path, isso pode causar um problema porque o Padlock XLS coloca a pasta de trabalho do Excel em um diretório virtual.
Nosso guia do usuário tem a solução para obter o caminho para os arquivos no mesmo diretório que o EXE:


#3

Grato pela resposta.

Funciona quando a extensão não é .exe

O 1º Arquivo é .exe e necessita abrir e referenciar célula no 2º Arquivo, também .exe
Tentei o código fornecido por vocês mas não obtive êxito.
O que estou fazendo de errado?

Public Function PathToFile(Filename As String)
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & Filename
Exit Function
Err:
PathToFile = “”
End Function

Sub TESTE()
Workbooks.Open Filename:=PathToFile(“data.exe”)
MsgBox Application.Workbooks(“data.exe”).Worksheets(1).Range(“A1”)
End Sub


#4

The error lies here. You can’t open an EXE file with Workbooks.Open.