以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多sheet报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3828)
--  作者：chenwuwenyu
--  发布时间：2009/8/7 8:42:00
--  多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中导出不同预约医生的细节，文件先不上传吧，文件比较麻烦的说

[此贴子已经被作者于2009-8-7 8:43:13编辑过]
--  作者：梦倩
--  发布时间：2009/8/7 8:51:00
--  

如果只是导出，直接编码更好。
或者用Exporter
--  作者：chenwuwenyu
--  发布时间：2009/8/7 9:05:00
--  
用报表怎么实现呢，
--  作者：梦倩
--  发布时间：2009/8/7 9:19:00
--  

你这个代码应该可以的吧?
--  作者：chenwuwenyu
--  发布时间：2009/8/7 9:41:00
--  

不行呀，sheet（1）的内容跟sheet（0）是一样的，不能实现
--  作者：狐狸爸爸
--  发布时间：2009/8/7 9:45:00
--  
没有办法，Build是一次性的
--  作者：chenwuwenyu
--  发布时间：2009/8/7 9:53:00
--  
图片点击可在新窗口打开查看那就是不能实现多sheet这样的报表了吗？有没有变通的方法呢
[此贴子已经被作者于2009-8-7 9:53:20编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/8/7 10:05:00
--  
看一下开发篇中的Excel报表编程，自己编写代码，将不同条件的数据，写入不同的表格。
--  作者：yangming
--  发布时间：2009/8/7 11:00:00
--  

不能放在二表中,那就放在一张表中吧
--  作者：smileboy
--  发布时间：2009/8/7 17:41:00
--  
可以实现，看看开发篇