Question

vb保存excel问题

我用的是这个代码
excel_Book5.Save
excel_Book5.Close
excel_App5.Quit
Set excel_App5 = Nothing
前几天都能正常保存，今天突然就说已经存在文件，是否要替换
怎么办，以前没跳出来过啊

Answer 1

应该保存工作簿（Workbook）而不是保存工作空间（Workspace），这样就能静默保存：

Set objBok = objExl.Workbooks.Add '新增工作簿
或者
Set objBok = objExl.Workbooks.Open(xls文件名) '打开已有工作簿

然后保存的时候：
objBok.SaveAs "c:\xxx.xls"
objBok.Close
objExl.Quit
Set objBok = Nothing
Set objExl = Nothing
希望能解决您的问题。

Answer 2

这个证明你的 Excel_Book5 这个变量打开的文件有问题，或者保存的路径有问题，当你的Excel_BOok5打开的是一个路径的文件，而保存的路径是另外一个路径的同名文件，那么保存的时候就会出现你所说的“是否替换”这个问题。
Excel_Book5.save
Excel_Book5.Close
两行代码可以合并成一行：
Excel_Book5.Close True

请贴完整代码，不然我们也无从判断！只能说，你检查一下文件的路径，打开和保存的路径！