以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助关于 excel 报表 一个模板同时生成多个工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86430)

--  作者:zhengboxin
--  发布时间:2016/6/17 11:13:00
--  求助关于 excel 报表 一个模板同时生成多个工作表

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编辑过]

--  作者:大红袍
--  发布时间: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
--  发布时间:2016/6/17 13:05:00
--  
谢谢老师,这个虽然是变通方法,可以试试