楼主的意思是不是这样的？（点击表单的'确定'按钮，表单消失了并打开了电子表格，修改完电子表格并关闭后，表单自动重新出现了）
如果是：只有简单的5行代码即可解决.

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
试过，成了。