Dim str1 As String=e.Form.Controls("NumericComboBox1").value
‘----------报表1
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\月结表按月份筛选合并汇总窗口.xls")
Dim fl As String = ProjectPath & "AllMyFiles\月结报表\" & str1 & "出库月结明细表.xls"
Dim sheet1 As XLS.Sheet = Book1.Sheets(0)
sheet1.name = str1 & "明细表"
Book1.Marks.Add("Myyf",str1)
Book1.Build()
Book1.Save(fl)
Dim Proc1 As New Process
Proc1.File = fl
Proc1.Start()
‘----------报表2
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\月结表汇总临时表窗口.xls")
Dim f2 As String = ProjectPath & "AllMyFiles\月结报表\" & str1 & "出库月结汇总表.xls"
Dim sheet2 As XLS.Sheet = Book2.Sheets(0)
sheet2.name= str1 & "汇总表"
Book2.Marks.Add("Myyf",str1)
Book2.Build()
Book2.Save(f2)
Dim Proc2 As New Process
Proc2.File = f2
Proc2.Start()
上面的代码，生成2个报表，我想实现：只生成一个报表，这个报表有2个工作簿，一个工作簿是报表1，另一个是报表2，不知道代码如何写，查了论坛的帖子，好像都没有找到答案，望老师解答一下，谢谢！
加好友 
发短信
Post By：2020/4/10 10:55:00 [只看该作者]
