EXCLE根据加载树列表打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请上传实例说明

步骤

1、获取所有的部门，可以使用getvalues

2、遍历所有部门，给table根据部门做筛选

3、根据筛选结果生成报表：http://www.foxtable.com/webhelp/topics/1145.htm

如果不会就上传实例

重新把代码发上来，直接发，不要加什么行号，不好改

Dim Products As List(Of String)

Products = DataTables("考勤明细松江").SQLGetValues("部门","日期='2020-11-02'")

For Each Product As String In Products

Dim Book As New XLS.Book(ProjectPath & "Attachments\考勤统计.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\考勤统计_" & Product & ".xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet(5,11).Value = "<部门 ='" & Product & "'>" '写入打印条件='"& Product & "'

Book.Build() '生成报表

Book.Save(fl)

'Dim Proc As New Process

'Proc.File = fl

'Proc.Start()

参考下面用法，改为自己的表和文件

Dim Products As List(Of String)

Products = DataTables("出库").SQLGetValues("出库用途")

Dim App As New MSExcel.Application

try

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Attachments\出库单.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表

With Wb.WorkSheets

For i As Integer = 1 To Products.Count - 1

Ws.Copy(After:=.Item(.Count))'复制到最后面

End With

app.DisplayAlerts = False

Wb.Saveas(ProjectPath & "Reports\出库单模板.xls")

App.Quit

catch ex As exception

msgbox(ex.message)

App.Quit

End try

Dim Book As New XLS.Book(ProjectPath & "Reports\出库单模板.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Dim Sheet As XLS.Sheet

For i As Integer = 0 To Products.Count - 1

Sheet = Book.Sheets(i)

Sheet(1,7).Value = "<出库用途 ='" & Products(i) & "'>" '写入打印条件='"& Product & "'

Book.Build() '生成报表

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

[此贴子已经被作者于2020/11/4 11:02:59编辑过]

主题：EXCLE根据加载树列表打印