怎么关闭电子表格book不提示存盘

如何关闭电子表格book不提示存盘？
代码如下
 Dim app As New Excel.Application
    Dim book As Excel.Workbook = app.Workbooks.Add
    Dim sheet As Excel.Worksheet = CType(book.Worksheets(1), Excel.Worksheet)
 
…………

      book.Close() '关闭
        book = Nothing '释放
        app.Quit() '退出
        GC.Collect() '关闭进程


执行程序时，老提示BOOK1保存，请问如何设置，可以让系统关闭BOOK，不跳出保存对话框？
[解决办法]
book.SaveCopyAs(fileName) 
book.Close() '关闭
....