主题：多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中导出不同预约医生的细节，文件先不上传吧，文件比较麻烦的说

用报表怎么实现呢，

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

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

貌似用单元格填充可以实现，有点不方便的说