.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

学习了

学习了

VFP9 测试通过，不错。

mket= Createobject("KET.Application")  &&创建WPS类
If Vartype(mket)="O"  && 大写的欧    创建成功
    ef = mket
endif
.....
我现在出现的问题是，有的电脑明明的有wps，却创建不成功。
不知道是这 WPS 是版本不兼容，还是新版wps 有用别的字符了。因为原来低版本用的是  “ET”
有谁遇到过，或知道是怎回事。请指教。
ms office 的 Createobject("Excel.Application") 一直没有问题

[此贴子已经被作者于2023-10-18 07:12编辑过]