vb强制覆盖

'在窗体代码区复制下面代码，并把工程保存到某一目录，同时复制任一excel文件到此目录下，并改名为1.xls，以便测试。然后运行本程序，之后你再打开1.xls，看，是不是已被强制覆盖了：-）

'====窗体代码====
Option Explicit

Private Sub Form_Load()
Dim S() As String, i As Integer, j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.Add '创建一个EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Cells(1, 1) = 1 '给单元格（row,col）赋值
xlBook.SaveAs FileName:=App.Path & "\1.xls" '保存工作表,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit '结束EXCEL对象
Set xlBook = Nothing
Set xlBook = Nothing
Set xlApp = Nothing '释放xlApp对象
MsgBox "恭喜你，文件已被强制覆盖了！", vbInformation, "提示"
Unload Me
End Sub

直接写