以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有可能把下面的几个报表都放在一个文件里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73347)
--  作者：jinzhengbe
--  发布时间：2015/8/17 18:29:00
--  有没有可能把下面的几个报表都放在一个文件里

我想把 下面的销售结算， 库存，入库等报表都放到 同一个excel文件里

 

可以实现么？

 

Dim p As String = Tables("xiaoshou").Current("time1") 
 
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售结算.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\销售结算.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
Book.Save("c:\\sn\\jiesuan\\" & p & format(Date.Now, "ddhhmm") & "销售.xls")


Dim Book1 As New XLS.Book(ProjectPath & "Attachments\\串货清单.xls") \'打开模板
Dim fl1 As String = ProjectPath & "Reports\\串货清单.xls"
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Book1.Build() \'生成报表
Book1.Save(fl)
Book1.Save("c:\\sn\\jiesuan\\" & p & format(Date.Now, "ddhhmm") & "串货清单.xls")

Dim Book2 As New XLS.Book(ProjectPath & "Attachments\\入库.xls") \'打开模板
Dim fl2 As String = ProjectPath & "Reports\\入库.xls"
Dim Sheet2 As XLS.Sheet = Book2.Sheets(0)
Book2.Build() \'生成报表
Book2.Save(fl)

Book2.Save("c:\\sn\\jiesuan\\" & p & format(Date.Now, "ddhhmm") & "入库.xls")


Dim Book3 As New XLS.Book(ProjectPath & "Attachments\\借货清单.xls") \'打开模板
Dim fl3 As String = ProjectPath & "Reports\\借货清单.xls"
Dim Sheet3 As XLS.Sheet = Book3.Sheets(0)
Book3.Build() \'生成报表
Book3.Save(fl)
Dim Proc3 As New Process
Proc3.File = fl3
Book3.Save("c:\\sn\\jiesuan\\"  & p & format(Date.Now, "ddhhmm") & "借货.xls")
\'Proc3.Start()
--  作者：sloyy
--  发布时间：2015/8/17 18:37:00
--  
当然可以呀,用同一个文件名,模板放在不同页
--  作者：大红袍
--  发布时间：2015/8/17 19:30:00
--  

 呃，你在一个excel表格里设置三个模板就行了。

 

 代码也不需要写三段，直接写一个就行了。