| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3506 人关注过本帖
标题:表单返回
只看楼主 加入收藏
wcx_cc
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:52
帖 子:371
专家分:1157
注 册:2015-10-2
收藏
得分:0 
楼主的意思是不是这样的?(点击表单的'确定'按钮,表单消失了并打开了电子表格,修改完电子表格并关闭后,表单自动重新出现了)
如果是:只有简单的5行代码即可解决.
新建文件夹.rar (4.27 KB)



2020-02-24 00:06
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 10楼 吹水佬
图片附件: 游客没有浏览图片的权限,请 登录注册
2020-02-24 08:43
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 10楼 吹水佬
图片附件: 游客没有浏览图片的权限,请 登录注册
2020-02-24 08:43
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
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
2020-02-25 19:14
杂七杂八
Rank: 1
等 级:新手上路
帖 子:217
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 7楼 gs2536785678
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
试过,成了。
2020-02-27 20:37
快速回复:表单返回
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023781 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved