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
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