| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 765 人关注过本帖, 1 人收藏
标题:VFP如何探知某一EXCEL文档是否被打开着?
只看楼主 加入收藏
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:6 
VFP如何探知某一EXCEL文档是否被打开着?
我的按键下有:
sele bmk
copy to 报名数据 type xl5
当按键在以后的点击中,重复生成“报名数据.xls”过程中会不断地覆盖,更新数据。

有时“报名数据.xls”被用EXCEL打开着,点击按键后,因为不能覆盖而提示出错,程序就非法终止了。
所以有问题要问大家:按键下判断“报名数据.xls”是否被打开,该用什么代码?
搜索更多相关主题的帖子: 数据 按键 EXCEL 如何 
2012-03-07 20:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:20 
程序代码:
WJM="C:\XLS\报名数据.XLS"
X=FOPEN(WJM,12)
=FCLOSE(X)
IF X=-1
   =MESSAGEBOX(WJM+"已经打开,请立即关闭EXCEL")
   RETURN
ENDIF

坚守VFP最后的阵地
2012-03-07 20:31
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
TO 2楼 SDTA
非常感谢你的回答。
测试你的代码发现,在第一次时,因为文档不存在返回的X也是-1,所以还是有点问题的。
修正如下:
程序代码:
WJM="报名数据.XLS"
IF FILE(wjm)
  X=FOPEN(WJM,12)
  =FCLOSE(X)
  ? x  &&&&&为了观察X值而设置
  IF X=-1
    =MESSAGEBOX(WJM+"已经打开,请立即关闭EXCEL")
    RETURN
  ENDIF
ENDIF
SELECT bmk
COPY TO (wjm) type xl5
再次感谢
2012-03-07 21:09
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用xs591222在2012-3-7 21:09:27的发言:

TO 2楼 SDTA
非常感谢你的回答。
测试你的代码发现,在第一次时,因为文档不存在返回的X也是-1,所以还是有点问题的。
修正如下:WJM="报名数据.XLS"
IF FILE(wjm)
  X=FOPEN(WJM,12)
  =FCLOSE(X)
  ? x  &&&&&为了观察X值而设置
  IF X=-1
    =MESSAGEBOX(WJM+"已经打开,请立即关闭EXCEL")
    RETURN
  ENDIF
ENDIF
SELECT bmk
COPY TO (wjm) type xl5再次感谢
谢谢,又学了一招

坚守VFP最后的阵地
2012-03-07 21:12
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
以下是引用sdta在2012-3-7 21:12:40的发言:

谢谢,又学了一招
谢谢你解决了我的问题。但不知你学了哪一招?
2012-03-07 21:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用xs591222在2012-3-7 21:29:00的发言:

谢谢你解决了我的问题。但不知你学了哪一招?
IF FILE()
ENDIF

坚守VFP最后的阵地
2012-03-07 21:40
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:0 
互相切搓,共同提高

只求每天有一丁点儿的进步就可以了
2012-03-08 12:59
快速回复:VFP如何探知某一EXCEL文档是否被打开着?
数据加载中...
 
   



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

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