咨询如何判断WORD或EXCEL中某个文档是否已被打开

这个代码好像不行，比如：打开前判断一下，然后关闭，再判断，前后结果一样

查找窗口如何？如果文件被打开，标题栏应该有该文件的相应信息
PROCEDURE xlspd
Lpara ctitle,fname
Declare INTEGER GetDesktopWindow IN user32
Declare INTEGER GetWindow IN user32 INTEGER hwnd, INTEGER wFlag
Declare INTEGER GetWindowText IN user32;
    INTEGER hwnd, STRING @lpString, INTEGER cch
Declare INTEGER GetModuleFileNameEx IN psapi;
    INTEGER hProcess,;
    INTEGER hModule,;
    STRING ModuleName,;
    INTEGER nSize
Declare INTEGER GetWindowThreadProcessId IN user32;
    INTEGER   hWnd,;
    INTEGER @ lpdwProcId
Declare INTEGER OpenProcess IN kernel32;
    INTEGER dwDesiredAccessas,;
    INTEGER bInheritHandle,;
    INTEGER dwProcId
Declare INTEGER CloseHandle IN kernel32 INTEGER hObject
Declare integer GetClassName in user32;
    integer hwnd, ;
    string lpClassName, ;
    integer nMaxCount
ctitle=lower(ctitle)
Local hDesktop, hFirstChild, hLastChild, cBuffer, nResult,hwnd,hCurrent,ii,jj,lwin(1)
hCurrent = hDesktop
ii=0
jj=1
lwin(1)=GetDesktopWindow()
hwnd=0
DO whil ii<jj
    ii=II+1
    hCurrent=lwin(ii)
    hFirstChild = GetWindow(hCurrent, 5)
    hLastChild = GetWindow(hFirstChild, 1)
    hCurrent = hFirstChild
    Do WHILE  hCurrent>0
        cBuffer = Space(250)
        nResult = GetWindowText(hCurrent, @cBuffer, Len(cBuffer))
        cBuffer= SUBSTR(cBuffer, 1, nResult)
        If at(ctitle,lower(cBuffer))>0
            HWnd=hCurrent
            ii=jj
            Exit
        ENDIF
        jj=jj+1
        LOCAL lwin(jj)
        lwin(jj)=hCurrent
        If hCurrent = hLastChild
            Exit
        Endif
        hCurrent = GetWindow(hCurrent, 2)
    ENDDO
ENDDO
Retu hwnd

[此贴子已经被作者于2024-5-27 12:24编辑过]

（1）是按照?xlspd("d:\","VFP_OPEN.docx")来调用吗？但调用后无任何反馈？
（2）如果返回一个句柄，那么fclose（句柄）可以关闭WPS里打开的docx文档吗？
谢谢！

测试后可用，但对于“项目XXXX.docx”或“项目XXXX.xlsx”，只要有1个打开，打开都返回“》0”的数值
1）由于编辑时，项目文档名分别存为“项目XXXX.docx”和“项目XXXX.xlsx”,可以区分开吗？
2）还是希望能实现“完整目录”+“文件名”，因为无论是xlsx还是docx如果存在不同目录下，都是可以被同时打开的。
谢谢！

lpszFile="导出文件.xlsx"
if file(lpszFile)
llerror=.f.
on error llerror=.t.
Delete File (lpszFile)
if llerror=.t.
MESSAGEBOX('错误：Excel文件：'+lpszFile+' 正在打开着（无法导出）！'+chr(13)+chr(13)+'【解决办法】：请在下方的任务栏单击此文件并将其关闭后，再次按此按钮导出，谢谢合作！',48,'提示')
retu
endif
ENDIF