Foxtable(狐表)用户栏目专家坐堂 → 求助关于 excel 报表 一个模板同时生成多个工作表


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

主题:求助关于 excel 报表 一个模板同时生成多个工作表

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


加好友 发短信
等级:二尾狐 帖子:530 积分:4520 威望:0 精华:0 注册:2013/4/27 22:20:00
求助关于 excel 报表 一个模板同时生成多个工作表  发帖心情 Post By:2016/6/17 11:13:00 [只看该作者]

excel 报表 能否用一个模板同时生成多个工作表

如下代码:

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
Dim
fl As String = ProjectPath & "Reports\订单.xls"
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(
3,0).Value = "<窗口1_Table1>" '写入表名
Book
.Build() '生成报表
Book
.Save(fl)
Dim
Proc As New Process
Proc
.File = fl
Proc
.Start()

只能生成一个工作表,我想问下各位老师,能否调用一个模板同时生成多个工作表,格式一样,内容不一样

通过 for each .....   next 反复执行上面的代码,但是生成的结果在一个excel文件里。

应用场景比如:我想以特定的格式(有excel模板)导出多款产品的物料结构

 

增加工作表应该是可以用

Dim Book As New XLS.Book()
Dim
Sheet1 As XLS.Sheet = Book.Sheets(0)
Book.Sheets.Add()
'增加一个工作表
Dim
Sheet2 As XLS.Sheet = Book.Sheets(1)
'引用新增加的工作表

 

不知道能否实现,麻烦各位老师了

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模板.xls

[此贴子已经被作者于2016/6/17 11:19:16编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 11:22:00 [只看该作者]

build以后,打开报表,把报表的sheet剪切到某一个excel文件里面即可

 

Dim Book1 As New XLS.Book("C:\001.xls")
Dim
Book2 As New XLS.Book("C:\002.xls")
Dim
Sheet = Book1.Sheets("订单")
Book1.Sheets.Remove(Sheet)
Book2.Sheets.Add(Sheet)
Book1.Save(
"C:\001.xls")
Book2.Save(
"C:\002.xls"
)

 

 


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


加好友 发短信
等级:二尾狐 帖子:530 积分:4520 威望:0 精华:0 注册:2013/4/27 22:20:00
  发帖心情 Post By:2016/6/17 13:05:00 [只看该作者]

谢谢老师,这个虽然是变通方法,可以试试

 回到顶部