Shell Command : Extremely Frustrated

[JOHN]

I am having problems with the shell command in Excel 2003 trying to launch a
specific application from an Excel Macro.

My test procedures are as follows :

Sub Test1()
MsgBox Shell("c:\ausynch.exe",1) ' This does not launch the app
End Sub

The msgbox does return a value indicating the application has been launched
but the exe is not running/visible. If I run the command in the Run programme
or from DOS prompt the exe runs. If I replace c:\ausynch.exe in the code with
say notepad.exe or calc.exe or c:\Program Files\Internet
Explorer\IEXPLORE.EXE it works. The code simply does not work against the
ausynch.exe application.

If I run the procedure below I get the error msg "Run time error '5':
Invalid procedure or argument.

Sub Test2()
myApp = Shell("c:\ausynch.exe",1)
appActivate myApp
End Sub

Any help or test ideas would enormously appreciated.
JOHN.

 

[DMoney]

Try using the object instead of shell.


Private Sub Command4_Click()
Dim APword As Object
Set APword = CreateObject("word.APPLICATION")
APword.Visible = True
AppActivate APword
End Sub

-----Original Message-----
I am having problems with the shell command in Excel 2003 trying to launch a
specific application from an Excel Macro.

My test procedures are as follows :

Sub Test1()
MsgBox Shell("c:\ausynch.exe",1) ' This does not launch the app
End Sub

The msgbox does return a value indicating the application has been launched
but the exe is not running/visible. If I run the command in the Run programme
or from DOS prompt the exe runs. If I replace

c:\ausynch.exe in the code with

 

[JOHN]

Many thanks. I will look at this, although I suspect it will not resolve my
problem. The reason being I need a function that returns a value (like the
shell command) that I can use subsequently to test if the application is
running. This is done in a ShellAndWait function.
http://groups.google.com/groups?threadm=ump2dlfcBHA.1656@tkmsftngp03


John.