| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2113 人关注过本帖
标题:vfp6有没有判断excel文件格式的函数?文件是5.0/95
只看楼主 加入收藏
vfp60菜鸟
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2017-1-11
结帖率:82.35%
收藏
已结贴  问题点数:10 回复次数:5 
vfp6有没有判断excel文件格式的函数?文件是5.0/95
如题
搜索更多相关主题的帖子: excel 
2017-02-15 15:37
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:10 
之前的帖子,坛子里有。

程序代码:
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()
2017-02-15 16:04
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
之前见过
2017-02-16 07:27
kmyz_yyl
Rank: 2
等 级:论坛游民
帖 子:61
专家分:28
注 册:2012-11-13
收藏
得分:0 
回复 2楼 hyswcyh
谢谢
2017-03-12 15:56
红星二锅头
Rank: 8Rank: 8
等 级:贵宾
威 望:46
帖 子:491
专家分:754
注 册:2016-8-25
收藏
得分:0 
楼主是想问 MS Excel 的版本号,还是需要 Excel 文件的格式?
MS Excel 文件格式这里有:
http://sc.
http://www.

团队红星二锅头,队长王猛,领队李冲,顾问杨伟,副队张挺,外联马彪,内勤韩秀,人事顾闯,财务赵魁,后勤周强
2017-03-13 08:41
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:525
专家分:1278
注 册:2010-1-11
收藏
得分:0 
是要判断Excel.exe的版本?还是Excel文件格式?VFP还像没有函数能够判断文件格式。
2017-03-13 14:30
快速回复:vfp6有没有判断excel文件格式的函数?文件是5.0/95
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023244 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved