要求：运行这个表单后点击确定键，打开一张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

要一直打开就不要：
   o.Workbooks.Close
   o.Quit
   Release oExcel

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

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

楼主打开 excel 的方式，是难达到要求的，即便加个 wait 或 messagebox()等 阻挡一下，用起来显得不应手。不要用这种常规方式打开。换换方式：
比如： 木瓜的 myfll,函数是：ShellExecWait('带路径的文件名','')。还有更简洁的方式，调用 WScript.Shell，更简单。

朋友你下载以后，自己琢磨吧

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

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

这样关闭excel后不是回到表单界面，是回到哪里了?