程序代码：

Clear
excelexist=.F. 
myexcel=CREATEOBJECT("Excel.application")
IF VARTYPE(myexcel)=="O"
   IF VAL(myexcel.Version)>7.0
      excelexist=.T.
   ENDIF
ENDIF 
? excelexist
myexcel.quit()

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()