Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel报表问题


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

主题：excel报表问题
美女呀，离线，留言给我吧！
13775189031
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/19 17:37:00 [只看该作者]

要在报表领料清单最下面实现“领料人”和“审核人”的电子签该怎么弄？
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/19 17:57:00 [只看该作者]

1、在同一个Excel中合并：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("f:\test.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.Cells(ws .UsedRange.Rows.Count+1,1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step -1
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
rg2.Copy
rg.PasteSpecial()
rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)
Ws2.Delete
Next
Wb.Save
App.Quit
 
这段代码要写在哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/19 18:01:00 [只看该作者]

以下是引用13775189031在2018/11/19 17:37:00的发言：

要在报表领料清单最下面实现“领料人”和“审核人”的电子签该怎么弄？

 

参考

 

http://www.foxtable.com/webhelp/scr/1387.htm

 

http://www.foxtable.com/webhelp/scr/2294.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/19 18:02:00 [只看该作者]

以下是引用13775189031在2018/11/19 17:57:00的发言：
1、在同一个Excel中合并：
 
这段代码要写在哪里？

 

生成报表之后。http://www.foxtable.com/webhelp/scr/1953.htm

 
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/19 18:47:00 [只看该作者]

多行内容生成一张报表，这样好像不行啊！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qr755-002领料清单.xls
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/19 19:03:00 [只看该作者]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("\\172.17.57.200\jsdlzb-pub\辅机事业部\生产采购管理系统\生产计划\生产计划.xls")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range  = ws.Cells(ws .UsedRange.Rows.Count+1,1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step -1
    Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
    Dim Rg2 As MSExcel.Range = Ws2.UsedRange
    rg2.Copy
    rg.PasteSpecial()
    rg = ws.Cells(ws .UsedRange.Rows.Count+1,1)
    Ws2.Delete
Next
Wb.Save
App.Quit

 

是在afterbuild事件中么?

显示


图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/19 20:24:00 [只看该作者]

我测试没有问题。

卸载重新安装一下office，需要安装完整版的，最好是32位版本。不能安装简易版、绿色版的。一般Ghost系统自带的都是简易版
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/20 11:16:00 [只看该作者]

多行内容生成一张报表，这样好像不行啊！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:qr755-002领料清单.xls
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/20 12:30:00 [只看该作者]

回复18楼，你的模板，要改成分组报表

 

http://www.foxtable.com/webhelp/scr/1542.htm

 
 回到顶部
美女呀，离线，留言给我吧！
13775189031
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：804 积分：5542 威望：0 精华：0 注册：2017/12/19 14:46:00 		  发帖心情 Post By：2018/11/24 9:58:00 [只看该作者]

请教

要在表“生产令号”中生成报表

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:辅机收发存.xls

报告中“当月库存数量”等于表“发货信息”中当月的“可入库数量”

表达式要怎么改？


图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 40 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 7 次数据查询