Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么调用狐表的excel word报表设计器


  共有2420人关注过本帖树形打印复制链接

主题：怎么调用狐表的excel word报表设计器
帅哥哟，离线，有人找我吗？
淡月斜阳
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：221 积分：1921 威望：0 精华：0 注册：2015/4/8 8:18:00 		怎么调用狐表的excel word报表设计器  发帖心情 Post By：2019/8/7 9:43:00 [只看该作者]

怎么调用狐表的excel报表设计器，
要能修改上半部分的字段列表项目
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190807094239.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/7 9:46:00 [只看该作者]

这个设计器无法做任何修改，只能使用。也无法通过代码调用

 回到顶部
帅哥哟，离线，有人找我吗？
淡月斜阳
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：221 积分：1921 威望：0 精华：0 注册：2015/4/8 8:18:00 		  发帖心情 Post By：2019/8/7 9:52:00 [只看该作者]

那么，我自己做一个设计器，就是仿照做一个窗体，
目前加了两个按钮，按钮一是打开文件：
Vars("PrintExcelFileApp") = New MSExcel.Application
Vars("PrintExcelFileAppWorkBook") = Vars("PrintExcelFileApp").WorkBooks.Open("C:\Users\Administrator\Desktop\a.xlsx")
按钮二：
Dim app = Vars("PrintExcelFileApp")
app.visible=True
'隐藏主界面
BaseMainForm.WindowState =1
Dim Ws As MSExcel.WorkSheet = Vars("PrintExcelFileAppWorkBook").WorkSheets(1)
Ws.activate
Dim Rg =app.ActiveCell 
Rg.Value="c"
‘

现在的问题是： 怎么能像官方的设计器一下，让这个窗体始终在 这个excel文件上层漂着。
现在是一点按钮，这个excel就不见了，焦点就回到了窗体上。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/7 9:56:00 [只看该作者]

这个在Foxtable里面做不到。

官方的execl辅助设计器是使用vs开发的一个office插件。并不是随便做个窗口都可以的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/7 10:01:00 [只看该作者]

或者把这个窗口设置为独立窗口，设置一下e.Form.baseform.Topmost = True，这个窗口就可以在桌面的最顶层了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07001 秒, 4 次数据查询