vfp怎么判断excel是否打开了。

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

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

如果能判定excel自动的打开的话，就可以让提示隐藏了。

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

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

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

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

用FINDWINDO检测WORD

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

file()

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