当copy to xxx.xls时，文件XXX.xls被打开着，导致程序出错 - VFP论坛

wengjl

等　级：贵宾
威　望：109
帖　子：2232
专家分：3913
注　册：2007-4-27
结帖率：95.83%

楼主

已结贴√ 问题点数：20 回复次数：3

当copy to xxx.xls时，文件XXX.xls被打开着，导致程序出错

当copy to xxx.xls时，因为文件XXX.xls被打开着，导致程序出错，出错提示为：

图片附件: 游客没有浏览图片的权限，请登录或注册

程序中要如何避免？或者说，当copy to xxx.xls时，如何先探测xxx.xls是否被打开着？

请大侠们赐教。谢谢啦！

搜索更多相关主题的帖子: 如何　

2012-04-17 07:22

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9848
专家分：27241
注　册：2012-2-5

第 3 楼

得分:10

以下是引用wengjl在2012-4-17 07:22:57的发言：

当copy to xxx.xls时，因为文件XXX.xls被打开着，导致程序出错，出错提示为：

程序中要如何避免？或者说，当copy to xxx.xls时，如何先探测xxx.xls是否被打开着？

请大侠们赐教。谢谢啦！

如何判断EXCEL或某个XLS文件是否已经打开（避免不可预知的错误发生）

程序代码：

LOCAL lOldSetOpt,mChanNum
lOldSetOpt = DDESetOption("SAFETY")
= DDESetOption("SAFETY",.F.)
**mChanNum = DDEInitiate('Excel','SYSTEM')     &&EXCEL是否已经打开
mChanNum = DDEInitiate('Excel','&lcFileName')     &&lcFileName某XLS文件名，如：D:\123.XLS
IF mChanNum <> -1
   **= messagebox('程序 EXCEL 已经打开，请先将其关闭！',64,'系统提示！')
   = messagebox('文件 '+lcFileName+' 已经打开，请先将其关闭！',64,'系统提示！')
   = DDETerminate(mChanNum)
   = DDESetOption("SAFETY",lOldSetOpt)
   RETURN
ELSE
   copy to xxx.xls
ENDIF

[ 本帖最后由 sdta 于 2012-4-17 09:30 编辑 ]

收到的鲜花

qjbzjp 于 2012-04-17 12:34 送鲜花 10朵附言：我很赞同

坚守VFP最后的阵地

2012-04-17 09:08