标题：多sheet报表

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\预约登记表.xls") '打开模板
Dim Sheet0 As XLS.Sheet = Book.Sheets(0)
tables("表A").Filter = "[预约医生]= '卢振和' "
With Tables("表A")
    .Select(0,0, .Rows.Count - 1, .Cols.Count - 1)
End With
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\预约登记表.xls") '保存工作簿

Dim Sheet1 As XLS.Sheet = Book.Sheets(1)
tables("表A").Filter = ""
tables("表A").Filter = "[预约医生]= '冉教授' "
With Tables("表A")
    .Select(0,0, .Rows.Count - 1, .Cols.Count - 1)
End With
Book.Build() '生成细节区

 

Book.Save(ProjectPath & "Reports\预约登记表.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Reports\预约登记表.xls"
Proc.Start()

两个sheet的格式是一样的，不同的就是"[预约医生]= '冉教授'
请教大家这个代码应该如何写呢，

目的：从表A中导出不同预约医生的细节，文件先不上传吧，文件比较麻烦的说

如果只是导出，直接编码更好。
或者用Exporter

用报表怎么实现呢，

你这个代码应该可以的吧?

不行呀，sheet（1）的内容跟sheet（0）是一样的，不能实现

没有办法，Build是一次性的

那就是不能实现多sheet这样的报表了吗？有没有变通的方法呢

看一下开发篇中的Excel报表编程，自己编写代码，将不同条件的数据，写入不同的表格。

不能放在二表中,那就放在一张表中吧

可以实现，看看开发篇