主题：为什么我用excel报表添加了保存语句后还会提示保存

Dim Book As New XLS.Book(ProjectPath & "Attachments\东飘总装MOpiao(集团版).xlsx")

Dim fl As String = ProjectPath & "Reports\东飘总装MOpiao(集团版).xlsx"

Book.Build()

Book.Save(fl)

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Wb.Saved = True
App.DisplayAlerts = False '加上此行可禁止弹出合并前的提示

Ws.PrintOut

App.Quit