怎样在VFP中判断EXCEl和WPS安装
.xls文件可以用excel和wps打开。有什么办法在vfp中判断excel 和wps 到底存在不存在?
程序代码:
TRY LOCAL eole as Object eole = CREATEOBJECT('Excel.application') CATCH MESSAGEBOX("Microsoft Excel應用程序不存在!") ENDTRY
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()