主题：[求助]点击保存按钮出现未保存

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 &"'>"
    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
Next
app.quit

 你看看 任务管理器 那里，把所有的excel.exe进程杀死