vb处理excel后另存为的问题
我打开一个excel进行处理,修改后保存时提示另存为。能不能保存的时候不提示另存为,直接保存在D盘下名字为2.xls。如果D盘下有2.xls就直接覆盖。不要提示。或者直接...
我打开一个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 展开
这个是我打开的代码
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 展开
3个回答
展开全部
作一个子函数,删除你要保存的名字的文件,(里面代码开始前 on error resume next 错误不提示)
执行该函数后,然后再保存,这样就不会提示你覆盖了;
执行该函数后,然后再保存,这样就不会提示你覆盖了;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ExcelApp.DisplayAlerts = False
ifile="D:2.xls"
if dir(ifile)<>"" then kill ifile
oBook.Saveas ifile
ifile="D:2.xls"
if dir(ifile)<>"" then kill ifile
oBook.Saveas ifile
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |