如何在用程序操作Excel对象时去掉讨厌的提示框？

[Reminisce]

如保存EXCEL文件为XML格式时，弹出：
您工作簿中的下述特性将无法保存在XML数据表中:
·自选图形、其它对象或图表
·VB项目
是否继续保存为XML数据表？

还有这个对话框：
在当前位置发现已经存在名为“……”的文件。您希望将该文件替换掉吗？

[Reminisce]

程序如下：

Dim x As Excel.Application
Set x = CreateObject("Excel.Application")
Dim y As Excel.Workbook
Set y = x.Workbooks.Open(xlsFile, 0, True, , , , True)
y.AcceptAllChanges
y.SaveAs xmlFile, xlXMLSpreadsheet, , , , , xlExclusive, xlLocalSessionChanges
y.Close
Set y = Nothing
Set x = Nothing

[TimesNewRoman]

只要写段VBA代码运行一下就行了
Application.DisplayAlerts = False