vb强制覆盖

Question

保存excel，如何强制覆盖已有同名文件，而且不提示文件已存在，是否覆盖源文件的对话框！给代码吧，本人比较笨，呵呵！最好不要先kill再生成的那种！

Answer 1

xlsapp.DisplayAlerts   =   False

Answer 2

Option ExplicitPrivate Sub Command1_Click()
  Dim xlApp As New Excel.Application
  Dim xlWork As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  
  Set xlWork = xlApp.Workbooks.Open("C:\4.xls")
  Set xlSheet = xlWork.Worksheets(1)
  xlSheet.Range("$A$1").Value = "fvflove"
  Application.DisplayAlerts = False  '注意,一定要增加此句
  
  xlWork.SaveAs "C:\5.xls"
   Application.DisplayAlerts = True  '注意,不用后 一定要再设置为True
  Set xlSheet = Nothing
  Set xlWork = Nothing
  xlApp.Quit
  Set xlApp = Nothing
End Sub

Answer 3

这个例子可以，加到我的上面就不可以了，郁闷啊！
这是我的
Private Sub Command1_Click()
Dim i
Dim objExcel As New Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objSheet As Excel.WorksheetSet objWorkBook = objExcel.Workbooks.Open("c:\1.xls")
  Set objSheet = objWorkBook.Worksheets(1)
  For i = 0 To 10
 
objSheet.Cells(i + 1, 1) = 1000
Next i
Application.DisplayAlerts = True  '注意,不用后 一定要再设置为True'保存 EXCEL 文件,另存为objWorkBook.SaveAs "c:\1.xls"
Application.DisplayAlerts = True  '注意,不用后 一定要再设置为True
Set objSheet = Nothing
  Set objWorkBook = Nothing
  objExcel.Quit
  Set objExcel = Nothing
End Sub