Vfp表如何导出到不同Excel版本
Vfp写的程序中将dbf表如何导出到Excel2003版本没有问题,但是现在计算机中很多安装高版本的excel,就无法运行,能否首先判断电脑中的excel版本,然后导出表数据
以下是引用sdta在2015-11-8 12:35:18的发言:
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()
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()
真的非常棒,学习了,谢谢