VFP如何探知某一EXCEL文档是否被打开着？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP如何探知某一EXCEL文档是否被打开着？

标题：VFP如何探知某一EXCEL文档是否被打开着？

只看楼主

xs591222

等　级：贵宾
威　望：28
帖　子：680
专家分：1287
注　册：2009-3-1
结帖率：100%

楼主

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

VFP如何探知某一EXCEL文档是否被打开着？

我的按键下有：
sele bmk
copy to 报名数据 type xl5
当按键在以后的点击中，重复生成“报名数据.xls”过程中会不断地覆盖，更新数据。

有时“报名数据.xls”被用EXCEL打开着，点击按键后，因为不能覆盖而提示出错，程序就非法终止了。
所以有问题要问大家：按键下判断“报名数据.xls”是否被打开，该用什么代码？

搜索更多相关主题的帖子: 数据　按键　 EXCEL　如何　

2012-03-07 20:07

sdta

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

第 2 楼

得分: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

等　级：贵宾
威　望：28
帖　子：680
专家分：1287
注　册：2009-3-1

第 3 楼

得分: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

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

第 4 楼

得分: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

等　级：贵宾
威　望：28
帖　子：680
专家分：1287
注　册：2009-3-1

第 5 楼

得分:0

以下是引用sdta在2012-3-7 21:12:40的发言：

谢谢，又学了一招

谢谢你解决了我的问题。但不知你学了哪一招？

2012-03-07 21:29

sdta