Question

vb处理excel后另存为的问题

我打开一个excel进行处理，修改后保存时提示另存为。能不能保存的时候不提示另存为，直接保存在D盘下名字为2.xls。如果D盘下有2.xls就直接覆盖。不要提示。或者直接保存成原来的文件不要提示。
这个是我打开的代码
k = "D:\1.xls"
Set ExcelApp = CreateObject("Excel.Application")
Set oBook = ExcelApp.Workbooks.Open(k, missing, True)
oBook.Sheets(1).Activate '激活工作表 zxs
'oBook.Sheets.Add After:=oBook.Sheets(oBook.Sheets.Count)
'Sheets.Add After:=Sheets(Sheets.Count)
Set xlsSheet = oBook.Worksheets(1)
Set Sht = oBook.Worksheets(2)
Set Sht1 = oBook.Worksheets(3)
Set Sht2 = oBook.Worksheets(4)

这个是我关闭的代码
ExcelApp.DisplayAlerts = False
' ExcelApp.Save
oBook.Close (True)
ExcelApp.Quit
Set oBook = Nothing
Set ExcelApp = Nothing
End If

Answer 1

1.首先，要知道什么是VBE是什么，VBE其实就是Microsoft Visual Basic窗口。编辑VBA的编辑窗口。

2.在工作表标签右键菜单在弹出的菜单选择“查看代码”，就可以打开“查看代码”窗口。

3.在“工具”菜单选择“宏”下的“VB编辑器”。

4.控件在编辑设计状态的下，双击控件可以打开“VB编辑器”。

Answer 2

作一个子函数,删除你要保存的名字的文件,(里面代码开始前 on error resume next 错误不提示)
执行该函数后,然后再保存,这样就不会提示你覆盖了;

Answer 3

ExcelApp.DisplayAlerts = False
ifile="D:2.xls"

if dir(ifile)<>"" then kill ifile
oBook.Saveas ifile