| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 692 人关注过本帖, 2 人收藏
标题:当copy to xxx.xls时,文件XXX.xls被打开着,导致程序出错
只看楼主 加入收藏
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2215
专家分:3882
注 册:2007-4-27
结帖率:95.83%
收藏(2)
已结贴  问题点数: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
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:6 
请楼主参考:http://bbs.

相互学习,互相交流,共同提高。
2012-04-17 08:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分: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 编辑 ]
收到的鲜花
  • qjbzjp2012-04-17 12:34 送鲜花  10朵   附言:我很赞同

坚守VFP最后的阵地
2012-04-17 09:08
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:4 
又学到了一招,谢谢
2012-04-18 07:16
快速回复:当copy to xxx.xls时,文件XXX.xls被打开着,导致程序出错
数据加载中...
 
   



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

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