Foxtable(狐表)用户栏目专家坐堂 → excel报表如何实现动态取对应格式的报表


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

主题:excel报表如何实现动态取对应格式的报表

帅哥哟,离线,有人找我吗?
chen_sheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
excel报表如何实现动态取对应格式的报表  发帖心情 Post By:2021/8/30 9:38:00 [只看该作者]

由于动态打印的灵活需求较高,帮助没学会灵活扩展应用
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工艺单.foxdb

,请教类似案例的参考,或能得到思路指点!

谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 10:02:00 [只看该作者]

意思是使用不同的模板?参考:http://www.foxtable.com/webhelp/topics/1145.htm

比如:

Dim r As Row  = Tables("工艺单").Current
Dim Book As New XLS.Book( r("打印方案一"))
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/8/30 10:55:00 [只看该作者]

根据订单条件匹配打印格式

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 10:58:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/8/30 16:05:00 [只看该作者]

现在遇到三个问题

1.由于订单打印量比较大,部分通过生成的资料需要修改存档,没有看到有保存到NAS或局域网共享的案例;
2.这个打印模板需要引用一些计算,这在模板文件内如何处理,模板弄好,生成文件后excel公式就不对了;
3.打印模板内有引用cad图纸,生成文件后图纸会移位.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印格式会偏移.xls



 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 16:15:00 [只看该作者]

1、保存的时候直接指定局域网地址即可:Dim fl As String = "\\192.168.0.1\xx共享目录\出库单.xls"
2、明细区不支持execl内置的公式

如果需要比较灵活的处理,建议直接手工填写数据:http://www.foxtable.com/webhelp/topics/1149.htm

更灵活的建议还是使用专业报表吧

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/8/30 17:04:00 [只看该作者]

蓝版能否指导一下向 Excel 指定单元格写入数据的方法呢,谢谢!
直接把数据写道单元格内应该图+公式都可以了


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 17:08:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/8/30 17:12:00 [只看该作者]

能否提供一个类似与往类似这个表内直接写入的参考借鉴

图片点击可在新窗口打开查看此主题相关图片如下:1718.gif
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111412 积分:567130 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/30 17:22:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2492.htm,反过来赋值即可,比如

sheet(4,1).Text = dr("姓名"

 回到顶部
总数 11 1 2 下一页