| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1036 人关注过本帖
标题:怎样在VFP中判断EXCEl和WPS安装
只看楼主 加入收藏
y1751
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-11-22
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:9 
怎样在VFP中判断EXCEl和WPS安装
.xls文件可以用excel和wps打开。有什么办法在vfp中判断excel 和wps 到底存在不存在?
搜索更多相关主题的帖子: excel 
2013-11-30 10:00
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
程序代码:
TRY 
    LOCAL eole as Object
    eole = CREATEOBJECT('Excel.application')
CATCH 
    MESSAGEBOX("Microsoft Excel應用程序不存在!")
ENDTRY

坚守VFP最后的阵地
2013-11-30 10:31
y1751
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2013-11-22
收藏
得分:0 
回复 2楼 sdta
谢谢。这在vfp9.0中才可以。vfp6.0又该怎么办?
2013-11-30 10:35
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
没必要去判断
f=getfile()
if !empty(f)
append from &f type xls
endif
2013-11-30 10:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
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() 

坚守VFP最后的阵地
2013-11-30 10:44
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:7 
err=.f.
on error err=.t.
oExcel = Createobject('Excel.Application')
on error
if err
    MESSAGEBOX('出错啦,不要做下去了!',64,'提示')
    return
endif
2013-11-30 10:51
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
学习了

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2013-11-30 20:49
b土木丁口
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:264
专家分:189
注 册:2013-9-12
收藏
得分:0 
学习了
2013-12-01 08:18
esailor
Rank: 2
等 级:论坛游民
帖 子:17
专家分:17
注 册:2007-7-15
收藏
得分:0 
回复 5楼 sdta
VFP9 测试通过,不错。
2023-06-16 09:58
hdx60
Rank: 2
等 级:论坛游民
威 望:1
帖 子:80
专家分:37
注 册:2013-2-8
收藏
得分:0 
mket= Createobject("KET.Application")  &&创建WPS类
If Vartype(mket)="O"  && 大写的欧    创建成功
    ef = mket
endif
.....
我现在出现的问题是,有的电脑明明的有wps,却创建不成功。
不知道是这 WPS 是版本不兼容,还是新版wps 有用别的字符了。因为原来低版本用的是  “ET”
有谁遇到过,或知道是怎回事。请指教。
ms office 的 Createobject("Excel.Application") 一直没有问题

[此贴子已经被作者于2023-10-18 07:12编辑过]

2023-10-18 07:10
快速回复:怎样在VFP中判断EXCEl和WPS安装
数据加载中...
 
   



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

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