Solved: Open a "variable.exe"

[Rejje]

Hello!

Depending on different variables I'd like for below code (or something similar) to open a variable "C:\a\b\c\program.exe" which is found a cell named "Run_this_program" in the workbook. The acrobat.exe search path is just an example. "Run_this_program" might just as well say "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE".



Sub Run_exe()
Dim RetVal

RetVal = Shell("C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.EXE", 1)

End Sub


Any ideas :think: ?

[Simon Lloyd]

Try this:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Launch_It()
ShellExecute 0, vbNullString, Range(run_this_program), vbNullString, "C:\", 1
End Sub

[slamet Harto]

i think you have to replace Range(run_this_program) to "acrobat.exe"

[Bob Phillips]

Try this:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Launch_It()
ShellExecute 0, vbNullString, Range(run_this_program), vbNullString, "C:\", 1
End Sub


The range name, run_this_program, should be in quotes.

[Simon Lloyd]

The range name, run_this_program, should be in quotes.Thanks Bob, a mere typo whilst at work :) (i guess i'm not that great at multitasking)