如何取消VB对excel文件操作时出现的提示对话框!!!!!

Question

当运行程系对excel文件进行操作时,就会出现一个excel提示框!询问是否保存excel文件?如何才能取消提示框呢???  请高手支招!
代码如下:Private Sub Command1_Click()Dim xpp As Excel.Application  '声明一个excel对象变量Dim xbook As Excel.Workbook    '声明一个excel工作薄对象变量Dim xsheet As Excel.Worksheet  '声明一个excel工作表对象变量Rem 开始创建excel进程，并打开excel文件If Dir("f:\2.xls") = "" Then
MsgBox "excel文档为空！"
Exit Sub
End IfSet xapp = CreateObject("excel.application") '创建一个excel对象Set xbook = xapp.Workbooks.Open("f:\2.xls") '打开excel文档xapp.Visible = False '将excel窗口隐藏
Set xsheet = xbook.Worksheets("sheet1") '设置活动工作表xsheet.Cells(1, 5) = "ddd"    '写入数据
xapp.Quit  '结束excel进程Set xapp = Nothing
Set xbook = Nothing
Set xsheet = Nothing
MsgBox "写入完成！"
End Sub

Answer 1

 
在xapp.Quit  '结束excel进程  前面加上     xbook.Close SaveChanges:=True