将数据导出到EXCEL，但是当取消保存时，会出现一个对话框，如何让这个对话框不出现？

Question

对话框内容：文件“book1”的内容已被修改，是否保存修改信息？
对话框标题：Microsoft Excel

Answer 1

Close 方法示例
本示例关闭 Book1.xls，并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变，Microsoft Excel 将显示询问是否保存更改的对话框和相应提示。

Answer 2

不好意思，贴漏了一行：
Workbooks.Close

Answer 3

问题是：我不知道book的名字，我用的是这样的代码：
dim xlapp as excel.application
dim xlbk as excel.workbook
dim xlsht as excel.worksheet
 set xlapp = new excel.application
 set xlbk = xlapp.workbooks.add那如何关闭 book?