vfp6有没有判断excel文件格式的函数?文件是5.0/95
如题
程序代码:
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()