.xls文件可以用excel和wps打开。有什么办法在vfp中判断excel 和wps 到底存在不存在？

TRY 
    LOCAL eole as Object
    eole = CREATEOBJECT('Excel.application')
CATCH 
    MESSAGEBOX("Microsoft Excel應用程序不存在！")
ENDTRY

谢谢。这在vfp9.0中才可以。vfp6.0又该怎么办？

没必要去判断
f=getfile()
if !empty(f)
append from &f type xls
endif

Clear
oExcel = Createobject([Excel.Application])

Do Case
    Case oExcel.Version = "2.0"  && 1987年
        ? "MS Excel 2 版"
    Case oExcel.Version = "3.0"  && 1990年
        ? "MS Excel 3 版"
    Case oExcel.Version = "4.0"  && 1992年
        ? "MS Excel 4 版"
    Case oExcel.Version = "5.0"  && 1993年
        ? "MS Excel 5 版"
    Case oExcel.Version = "6.0"  && None
        ? "没有"
    Case oExcel.Version = "7.0"  && 1995年
        ? "MS Excel 95 版"
    Case oExcel.Version = "8.0"  && 1997年
        ? "MS Excel 97 版"
    Case oExcel.Version = "9.0"  && 1999年
        ? "MS Excel 2000 版"
    Case oExcel.Version = "10.0" && 2001年
        ? "MS Excel XP 版"
    Case oExcel.Version = "11.0" && 2003年
        ? "MS Excel 2003 版"
    Case oExcel.Version = "12.0" && 2006年
        ? "MS Excel 2007 版"
    Case oExcel.Version = "13.0" && None
        ? "没有"
    Case oExcel.Version = "14.0" && 2010年
        ? "MS Excel 2010 版"
    Case oExcel.Version = "15.0" && 2013年
        ? "MS Excel 2013 版"
    Otherwise
        ? "本机没有安装EXCEL"
Endcase

? oExcel.Version

oExcel.quit() 

err=.f.
on error err=.t.
oExcel = Createobject('Excel.Application')
on error
if err
    MESSAGEBOX('出错啦，不要做下去了！',64,'提示')
    return
endif

学习了

学习了