Question

VB往Excel追加数据，总是提示是否覆盖。。。。怎么办

RT我想用按键控制往Excel里写进数据，但是每次写完数据关闭Excel就会出现提示问我是否覆盖原文件，请问怎么做才能让它默认覆盖原文件呢？？？

Answer 1

只要在你打开EXCEL文件时增加以下一句，就不会出现提示信息了：
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False '这一句就是不显示对话框

'另：根据你的反馈，结果不保存的原因是你是否使用了保存语句，下面是保存语句：
xlBook.SaveAs FileName:="c:\1.xls" '保存工作表,结束时一定别忘了保存

Answer 2

使用
Sendkeys %{O} ,true
来输入OK同意覆盖就可以了

Answer 3

一、可用工作簿关闭前的beforeclose事件预先进行保存：如
Private Sub Workbook_BeforeClose(Cancel as Boolean)
If Me.Saved = False Then Me.Save
End Sub
二、可用工作簿关闭方法的保存选项事先设定是否保存：
Workbooks("BOOK1.XLS").Close SaveChanges:=False