我想把 下面的销售结算， 库存，入库等报表都放到 同一个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()
加好友 
发短信
Post By：2015/8/17 18:29:00 [显示全部帖子]
