老师请教下,我想实现一个功能 多个产品分别导出至同个excel工作簿的不同工作表 设计一个报表输出按钮,代码如下:模板没有问题,现在的问题是执行代码后,报表除了工作表名有变化,其他没反应。老师帮我看看哪里的问题。
Dim CPMS As List(OF String) = DataTables("统计表").GetValues("品名","[品名] is not null")
Dim F1 As String = ProjectPath & "Reports\业绩表.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\业绩表.xls") '打开模板
For Each CPM As String In CPMS
Dim sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,10).Value =" < [产品名1] = '"& cpm &"' > " '修改模板,加入筛选条件
Book.Build() '生成细节区
sheet.Name= cpm
book.Sheets.Add(sheet.name)
Book.Save(F1) '保存工作簿
Next
Dim Proc As New Process '打开工作簿
Proc.File = F1
Proc.Start()