《VFP程序如何检测客户机是否安装Excel.doc》由会员分享，可在线阅读，更多相关《VFP程序如何检测客户机是否安装Excel.doc（2页珍藏版）》请在三一文库上搜索。
1、主题：VFP程序如何检测客户机是否安装Excel？ 作者：ihorse 发表时间：2008-2-21 7:12:00 楼主 如题，在程序中如何检测客户的电脑上是否安装了Excel？为了能让客户机正常导入导出Excel数据到dbf中，客户机是否一定需要安装Excel？如果不安装Excel，那么需要安装什么组件（比如什么ODBC驱动之类的？）方能正常使用该项功能？请高手支招，谢谢! 作者：sianfox 发表时间：2008-3-20 11:44:00 第1楼 *检测系统是否安装Excel程序及其版本是否高于Excel97excelexist=.F. myexcel=CREATEOBJECT(Exc
2、el.application)IF VARTYPE(myexcel)=OIF VAL(myexcel.Version)7.0excelexist=.T.ENDIFENDIF 作者：jinlonggao 发表时间：2008-3-20 18:05:00 第2楼 如果客户机上没有安装，在运行下列语句：myexcel=CREATEOBJECT(Excel.application)时会不会出现错误提示？如果会，如何阻止它出现？实际上这个问题只要将机子里边的卸载后偿试一下就知道了，但那样的话动静太大了，所以，直接出来问？请试过的朋友出面回答一下，所以别见怪！ 作者：ihorse 发表时间：2008-3-2
3、0 18:09:00 第3楼 我目前用的方法是直接读取注册表中的值，如存在就认为安装了，但这不能防止欺骗（例如有人人为在注册表中添加一个键值或者将已有的键值删除，就会误报）。 作者：jinlonggao 发表时间：2008-3-20 18:35:00 第4楼 楼主本来可以不给我打分，因为我并没有做什么贡献既然打了分，就得说点啥，你是否用一下错误捕捉机制来检测一下客户机是否安装了比如，你是在command1的click事件中引用了下列代码myexcel=CREATEOBJECT(Excel.application)则你就可以在command1的Error事件中写入如下代码：IF VARTYPE(myexcel)=Omessagebox(您的系统中没有安装EXCEL,所以不能继续运行!) returnendifIF VAL(myexcel.Version)7.0 messagebox(您的EXCEL版本太低,请升级为最新版本!)ENDIF注意将myexcel变量设置为public