关于用vb保存excel文件

[chlei]

保存的时候，我想覆盖一个已经存在的文件，可是会弹出一个信息，问我是否要覆盖，怎样屏蔽这个提示
Dim MyApp As Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("Excel.Application")
Set MyBook = MyApp.Workbooks.Add
Set MySheet = MyBook.Worksheets(1)
MyBook.SaveAs sPath //////

[foreverforyou]

Dim MyApp As Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Set MyApp = CreateObject("Excel.Application")
Set MyBook = MyApp.Workbooks.Add
Set MySheet = MyBook.Worksheets(1)

if dir(spath) <> "" then
kill spath
end if

MyBook.SaveAs sPath //////