这样行不?
Dim App As New MSExcel.Application
For Each s As String In DataTables("条件").getValues("班级名称")
Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\" & s & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,9).Value = "<[班级名称] = '" & s &"'>"
Next
Book.Build() '生成报表
Book.Save(fl)
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
rg.ShrinkToFit = True
App.Visible = False
wb.Save
app.quit
加好友 
发短信
Post By：2015/5/29 18:56:00 [只看该作者]
