vfp怎么判断excel是否打开了。 - 编程论坛

#2

sdta2020-03-05 13:42

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

#3

xuminxz2020-03-06 20:03

On Error xlsrs=Createobject('Excel.application') &&如果下一语句执行错误（即excel没有打开），执行本语句&&测试是否安装了Excel
xlsrs=Getobject(,'Excel.application') &&给打开的Excel一个别名
如果已经打开，直接使用，滑打开将其打开。

#4

kmyz_yyl2021-02-05 10:57

回复 2楼 sdta

请教，如果EXCEL是用CREATEOBJECT("Excel.Application")打开，打开的窗口名多了一个“MICROSOFT EXCEL - ”,那么你的代码则找不到这个打开的EXCEL文档

#5

yll1482021-02-05 15:57

回复楼主 fwy12

请问WORD怎么检测啊？谢谢！

#6

kmyz_yyl2021-02-05 17:31

用FINDWINDO检测WORD

#7

杂七杂八2021-02-05 18:20

回复 2楼 sdta

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

#8

sdta2021-02-10 19:17

以下是引用杂七杂八在2021-2-5 18:20:33的发言：

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

file()

#9

杂七杂八2021-02-12 07:42

回复 9楼 sdta

sdta:新年好！牛年大吉！身体健康！
谢谢你