如何判断电脑上是否安装了 Excel(转载)

来源:https://bbs.csdn.net/topics/340141130 作者:十豆三 * VFP8.0 Or VFP9.0 m.llExit=.T. Try m.Excel=Createobject("Excel.Application") m.Excel=Null Catch m.llExit=.F. Endtry If m.llExit=.F. Messagebox("没有安装 Excel!",48,"信息提示") Return Endif
2021-05-04 14:50 | 阅读 87 次 | 评论 0 条

判断 EXCEL 程序是否启动

LOCAL lOldSetOpt,mChanNum lOldSetOpt = DDESetOption("SAFETY") = DDESetOption("SAFETY",.F.) mChanNum = DDEInitiate('Excel', 'SYSTEM') &&EXCEL是否已经打开 IF mChanNum # -1 = MESSAGEBOX('程序 EXCEL 已经打开,请先将其关闭!', 64, '系统提示!') = DDETerminate(mChanNum) = DDESetOption("SAFETY",lOldSe...
2021-04-11 21:04 | 阅读 145 次 | 评论 0 条
文章分类
最新评论