主题：[求助]用EXCEL报表，按排序生成独立的EXCLE文件

 楼主可看看这一章，动态设置打印条件。

 http://www.foxtable.com/help/topics/2626.htm

 看看这样行不行。不行的话，把你的数据表上传上来测试。

Dim nms As List(of String) = DataTables("结算表").GetUniqueValues("","客户")

For Each nm As String In nms
    Dim Book As New XLS.Book(ProjectPath & "Attachments\结算单-2013模板.xls")
    Dim fl As String = ProjectPath & "Reports\" & nm & ".xls"
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(8, 9).Value = "<客户 = '" & nm & "'>"
    Book.Build() '生成细节区
    Book.Save(fl) '保存工作簿
Next