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编辑过]
加好友 
发短信
Post By：2009/8/7 8:42:00 [只看该作者]
