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
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再次感谢