主题：一个excel工作簿有多个表 怎么对应动态写入打印条件呢？

 
此主题相关图片如下：3221.png

 当前代码如下： 

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(2,16).Value = "<年度 = '" & Date.Today.Year & "' and 月份 = '" & Date.Today.Month & "'>"  '写入打印条件
Dim Sheet1 As XLS.Sheet = Book.Sheets(1)
Sheet1(2,16).Value = "<年度 = '" & Date.Today.Year & "' and 月份 = '" & Date.Today.Month & "' and 措施类别 = '一类谈话'>"  '写入打印条件
Dim Sheet2 As XLS.Sheet = Book.Sheets(2)
Sheet2(2,16).Value = "<年度 = '" & Date.Today.Year & "'and 月份 = '" & Date.Today.Month & "' and 措施类别 = '二类谈话'>"  '写入打印条件
Dim Sheet3 As XLS.Sheet = Book.Sheets(3)
Sheet3(2,16).Value = "<年度 = '" & Date.Today.Year & "'and 月份 = '" & Date.Today.Month & "' and 措施类别 = '三类谈话'>"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 

上述代码，运行的时候  没有分别写入……4个表的数据都一样……

只有一个走读式谈话台账这个数据表  想分别对应四个条件  然后写入四个不同的数据

此主题相关图片如下：3221.png

就是一个数据表  里面有类别这个字段  我要根据类别来生成多个不同的excel表   这些excel表又在同一个excel文件中  依次为1234  excel文件中的表格都一样  只是类别条件不一样  怎么生成呢？

这四个条件的数据  都是在同一个表中的呢  只是在生成excel文件的时候  我划分成了汇总 类别1  类别2  类别3  四个不同的条件数据      这四个条件数据的表文件又是一样的