要求：运行这个表单后点击确定键，打开一张excel 表并对这张book1作编辑保存点击关闭再返回到这个表单界面
存在问题：打开excel后一闪而过

求教：代码怎么写，才能实现我的要求。谢谢！

o=NewObject('Excel.Application')
 o.Workbooks.Open(sys(5)+curdir()+"book1")

  if  MESSAGEBOX("已生成,要打开EXCEL吗？",1+256,"提示")==1
     o.visible=.t.
     ***这里开始请教代码怎么写才能实现***
     ****
*!*        * RETURN
*!*         o.Workbooks.Close
*!*         o.Quit
*!*         Release oExcel
*!*         *close all
     Thisform.show
  EndIf
   o.Workbooks.Close
   o.Quit
   Release oExcel
  

Thisform.show

谢谢🙏，是的，excel打开了。等我操作excel后单击关闭excel想回到表单界面，实现不了。

谢谢🙏，是的，excel打开了。等我操作excel后单击关闭excel想回到表单界面，实现不了。

谢谢，打开excel 的时间有点长。

这样excel是打开了并显示.想在关闭excel后回到表单界面。

o=NewObject('Excel.Application')
 o.Workbooks.Open(sys(5)+curdir()+"book1")

  if  MESSAGEBOX("已生成,要打开EXCEL吗？",1+256,"提示")==1
     o.visible=.t.
     RETURN
     ***到这里能正常打开EXCE并编辑，完成后点击关闭excel后回不到表单界面。
     ***请教代码怎么写，才能实现回到原表单界面***
     …………
  EndIf

   o.Workbooks.Close
   o.Quit
   Release oExcel
 
Thisform.show

o=NewObject('Excel.Application')
 o.Workbooks.Open(sys(5)+curdir()+"book1")

  if  MESSAGEBOX("已生成,要打开EXCEL吗？",1+256,"提示")==1
     o.visible=.t.
     o.windowstate=-4137&&****Excel窗口最大化,-4140&&&EXCEL窗口最小化
  EndIf
   o.Workbooks.Close
   o.Quit
   Release oExcel
 Thisform.show
试过，成了。