各位老师您们好，之前，我请教了一个案例，希望能动态设置excel报表的打印条件，对下面这组有重复数据的工作表第一列 第二列 第三列
张三
2
1.jpg张三
2
2.jpg
李四
2
3.jpg
李四
2
4.jpg
张三
2
5.jpg
张三
1
6.jpg
王五 2 7.jpg
筛选后，可以自动生成以姓名命名的报表。它的功能是：筛选张三李四后，就不会出现王五的报表，只生成报表张三，里面仅仅只有张三的数据，自动生成报表李四，里面仅仅只有李四的数据。
我上传案例后，老师们帮我找到一种解决方案：
Dim t As Table = Tables("表B")
For Each n As String In t.DataTable.GetValues("第一列", "第一列 is not null" & iif(t.Filter>"", " and (" & t.filter & ")", "")) Dim Book As New XLS.Book(ProjectPath & "Attachments\111.xls") '打开模板 Dim fl As String = ProjectPath & "Reports\" & n & ".xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet(1,10).Value = "<第一列='" & n & "'>" '写入打印条件 Book.Build() '生成报表 Book.Save(fl)Next
这就是我这次上传的案例中
，批量导出窗口的按钮一的事件，是可以正常运行的。 今天我需要自动生成新的报表模式，就把上面事件的报表模板111，直接换成了案例中的花名册，结果生成的报表，不能按姓名区分了，虽然可以分别生成张三、李四的报表，但每张报表里含有全部的数据。
我觉得问题是发生在写入打印条件这个环节，但我不懂的是，帮助文档里说“上面这个模版中，打印条件设置在第三行第九列这个单元格”，它的代码就是Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>"
但是我按照报表模板花名册中的行列位置，把写入打印条件改成了 Sheet(2,2).Value = "<第一列='" & n & "'>" '写入打印条件，还是无法正常运作
究竟这里的行列位置是怎么判断的呢？我看到原本的代码里，1，10的行列位置，也与帮助文档的获取方法略有不同。我觉得1，10的行列位置，对应的是数据的起始点，但照搬后，仍然无法正常运作
求老师们点拨下我，真的非常感谢！
加好友 
发短信
Post By：2017/4/6 23:19:00 [只看该作者]
