怎么让这个对话框不出现？（保存Excel的）

[xxlroad]

Private Sub Command1_Click()
Dim Ex As Object
Dim ExBook As Object
Dim ExSheet As Object
Set Ex = CreateObject("Excel.Application")
Set ExBook = Ex.workbooks.open("C:\Win98\Desktop\11T.xls")
Set ExSheet = ExBook.worksheets("Sheet1")
ExSheet.Cells(1, 1).Value = "1"
SendKeys "{ENTER}" '这样效果很不好啊
ExBook.Close
Ex.quit
Set Ex = Nothing '释放对象
Set ExBook = Nothing
Set ExSheet = Nothing '请问题怎么去掉 你是否要保存修改过的内容 这个对话框
End Sub

[Tsou]

添加：ex.Visible=False

[xxlroad]

还是出现哪个对话框啊！

[xxlroad]

Private Sub Command1_Click()
Dim Ex As Object
Dim ExBook As Object
Dim ExSheet As Object
Set Ex = CreateObject("Excel.Application")
Set ExBook = Ex.workbooks.open("C:\Win98\Desktop\11T.xls")
Set ExSheet = ExBook.worksheets("Sheet1")
ExSheet.Cells(1, 1).Value = "1"
'SendKeys "{ENTER}" '这样效果很不好啊
'Ex.Visible = False '还是出现哪个对话框啊！还是谢谢Tsou()
Ex.DisplayAlerts = False '解决了 谢谢 还俗和尚.COM
ExBook.Close
Ex.quit
Set Ex = Nothing
Set ExBook = Nothing
Set ExSheet = Nothing
End Sub

[xxlroad]

但是加了这个以后 我什么都白白干了 不保存了

怎么办啊？