用vb程序控制Excel文档，包括打开，保存，另存为，请问在另存为时，如何强制另存，直接直接覆盖原来的文件，不要提示该文件已存在

Question

用vb程序控制Excel文档，包括打开，保存，另存为，请问在另存为时，如何强制另存，直接直接覆盖原来的文件，不要提示该文件已存在

Answer 1

Excel.ActiveWorkbook.saveas(App.Path & "\temp.xls") 
是不是加什么参数，可以直接覆盖，不会出现提示，要不要覆盖!

Answer 2

.AlertBeforeOverwriting = False
        .ActiveWorkbook.SaveAs m_sFilename

Answer 3

Dim xlteachder As New Excel.Application
Dim xlBook As New Workbook
Dim xlSheet As New Worksheet
Set xlteachder = CreateObject("excel.application")
xlteachder.Visible = False/true 是否可见
Set xlBook = xlteachder.Workbooks.Open(地址）
Set xlSheet = xlBook.Worksheets(1)
xxxx=xlSheet.Cells(1,1)Value 就是第一行地一列的值
xlSheet.Cells(1,1)Value=xxxx  也可以赋值
xlBook.Save  改变以后一定要保存
xlteachder.Quit
xlteachder.Workbooks.Close  '关闭进程