创建EXCEL对象来判断！
LOCAL cOLD_ERROR,IF_ERROR
cOLD_ERROR=on("error")
on ERROR IF_ERROR=.T.
oEXCELAPP=createobject("excel.application")&&创建EXCEL对象
ON ERROR &cOLD_ERROR
if type("oEXCELAPP")#"O"
    MessageBox("你的系统没有安装EXCEL!",48,"提示信息") 
    RETURN .f.
ENDIF

以上代码还是不完整，因为安装的应用程序还要区分版本（不同的版本可能支持的功能不一样），一般可以通过检查注册表来实现（最好是结合1楼方法的进行）。

谢谢1楼的老师,使我茅塞顿开