主题：为什么我用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)

Ws.PrintOut

App.Quit

我已经有

Book.Save(fl)、老是打印完后还是提示要保存excel.

后边加了 

Dim Proc As New Process

Proc.File = fl

Proc.Start()还是不行

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