| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2628 人关注过本帖
标题:vfp怎么判断excel是否打开了。
只看楼主 加入收藏
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
结帖率:94.44%
收藏
已结贴  问题点数:20 回复次数:8 
vfp怎么判断excel是否打开了。
vfp怎么判断excel是否打开了。

我将vfp导入到excel,.ActiveWorkbook.SaveAs(m.lsWJM) 用这个方式将导出的excel保存,保存后会自动打开。

但是数据多的话这个过程会很漫长。我想加个提示,提示正在导出。当导出的excel自动打开后,这些提示自动消失呢。

如果能判定excel自动的打开的话,就可以让提示隐藏了。
搜索更多相关主题的帖子: excel vfp 打开 提示 是否 
2020-03-05 13:29
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
6、如何判断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
ENDIF

坚守VFP最后的阵地
2020-03-05 13:42
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:10 
On Error xlsrs=Createobject('Excel.application') &&如果下一语句执行错误(即excel没有打开),执行本语句&&测试是否安装了Excel
xlsrs=Getobject(,'Excel.application') &&给打开的Excel一个别名
如果已经打开,直接使用,滑打开将其打开。

dBase有人接盘了。
2020-03-06 20:03
kmyz_yyl
Rank: 2
等 级:论坛游民
帖 子:62
专家分:28
注 册:2012-11-13
收藏
得分:0 
回复 2楼 sdta
请教,如果EXCEL是用CREATEOBJECT("Excel.Application")打开,打开的窗口名多了一个“MICROSOFT EXCEL - ”,那么你的代码则找不到这个打开的EXCEL文档
2021-02-05 10:57
yll148
Rank: 2
等 级:论坛游民
威 望:3
帖 子:268
专家分:15
注 册:2012-7-3
收藏
得分:0 
回复 楼主 fwy12
请问WORD怎么检测啊?谢谢!
2021-02-05 15:57
kmyz_yyl
Rank: 2
等 级:论坛游民
帖 子:62
专家分:28
注 册:2012-11-13
收藏
得分:0 
用FINDWINDO检测WORD
2021-02-05 17:31
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 2楼 sdta
请教如何判断某个XLS文件是否存在?谢谢!
2021-02-05 18:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用杂七杂八在2021-2-5 18:20:33的发言:

请教如何判断某个XLS文件是否存在?谢谢!

file()

坚守VFP最后的阵地
2021-02-10 19:17
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 9楼 sdta
sdta:新年好!牛年大吉!身体健康!
    谢谢你
2021-02-12 07:42
快速回复:vfp怎么判断excel是否打开了。
数据加载中...
 
   



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

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