Finding EXCEL 2

[jjas]

Is there any way within a FoxPro environment to determine whether EXCEL is installed on a PC?

I would rather not use this code since it is not foolproof.

IF FILE('C:\Program Files\Microsoft Office\Office\EXCEL.EXE') = .T. .OR. ;
FILE('C:\Program Files\Microsoft Office\Office10\EXCEL.EXE') = .T.
Has_Excel = .T.
ELSE
Has_Excel = .F.
ENDIF

 

[Mike Gagnon]

jjas

Try automating it and trap the error:

ON ERROR DO myExcelError
oEx = CREATEOBJECT("Excel.application")

PROCEDURE myExcelError
messagebox("There is no Excel installed on this system.")
ENDPROC

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[CJWARNER]

Besides error trapping, I have just tested whether or not the wanted object is really an object.

** initialize object variable
oEx = CREATEOBJECT("Excel.application&quot

**** test validity of object
IF TYPE('oEx')="O"
ELSE
WAIT WINDOW "Problem using Excel on this PC."
ENDIF


==Carl
Carl Warner
VFUG Officer,

http://vfug.org:8080/

 

[Mike Gagnon]

Carl

oEx = CREATEOBJECT("Excel.application&quot

According to my exprience, VFP will throw an error at the above line. If you don't trap it right away, it will look pretty ugly.
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.