判断 EXCEL 程序是否启动

EXCEL | 2021-04-11 21:04:05 | 阅读 145 次 | 评论(0)
LOCAL lOldSetOpt,mChanNum
lOldSetOpt = DDESetOption("SAFETY")
= DDESetOption("SAFETY",.F.)
mChanNum = DDEInitiate('Excel', 'SYSTEM') &&EXCEL是否已经打开
IF mChanNum # -1
    = MESSAGEBOX('程序 EXCEL 已经打开,请先将其关闭!', 64, '系统提示!')
    = DDETerminate(mChanNum)
    = DDESetOption("SAFETY",lOldSetOpt)
    RETURN
ELSE
    *copy to xxx.xls
ENDIF
文章评论,共0条
游客请输入验证码
文章分类
最新评论