1 新建一个Excel文件并保存。打开VBE,可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块,输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
1、ThisWorkbook.Save 'Save相当于你手工单击 保存按钮;这个函数无参数 语法如下:expression.Save 参数expression是必需的,该表达式返回一个Workbook对象。 这种方法相当于我们在用鼠标点击“保存”按钮,这时工作薄将覆盖原来保存的文件为最新的文件 2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的...
代码解析:MySaveWork过程保存代码所在的工作簿的修改。二:如果是第一次保存工作簿,请使用SaveAs方法,同时为该文件指定文件名,Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改,语法如下:SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,Co...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")...
Saveas 是把当前文件另存为另一个文件,所以"当前"文件就变成目标文件了,想要做一个备份,而真正的保留当前文件,请使用 SaveCopyAs,这样才可以达到楼主的目的...即:把 ThisWorkbook.SaveAs ("d:\temp\temp全省站点名单1.xls") 改为:ThisWorkbook.SaveCopyAs ("d:\temp\temp全省站点名单1.xls")...
大家好,上节课VBA课程我们讲解了工作簿的Save方法,它是保存的意思。本节课我们介绍工作簿的SaveAs方法 ,SaveAs方法相当于Excel操作中的“另存为”命令,以指定名称保存工作簿。SaveAs方法的语法格式为: 表达式. SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru...
要覆盖现有文件,你实际上不需要在SaveAs方法中设置任何特定的参数。但是,为了防止弹出“文件已存在,是否覆盖?”的警告框,你需要将Application.DisplayAlerts属性设置为False。 3. 示例代码 以下是一个示例代码,展示了如何使用SaveAs方法覆盖现有Excel文件: vba Sub SaveWorkbookOverwrite() ' 禁用警告框 Application.Disp...
E盘 或 E:\收据\ 这个目录不存在 问题补充:“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”不要选中就没提示了
SetNewBook = Workbooks.AddDofName = Application.GetSaveAsFilenameLoopUntilfName <>FalseNewBook.SaveAs Filename:=fName 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
虽然在excel文件中检索的vba代码不知道写了多少遍了,每次需要的时候,都是从网上找,然后写。实在是低效的做法。从网上找了一段代码,放在此处,以后需要的时候可以随手拿来。...Exit SubErrHandler: MsgBox Err.Description, vbExclamation Resume ...