
可以使用 Workbook 对象的 Save 方法保存工作簿,其语法为:
Workbook 对象.Save
下面的示例代码用来保存当前工作簿:
Sub SaveWB()
ActiveWorkbook.Save
End Sub
如果是首次保存工作簿,那么要使用 SaveAs 方法来指定工作簿的名称。其语法为:
Workbook 对象.SaveAs(FileName,FileFormat,Password,WriteResPassword,R
eadOnlyRecommended,CreateBackup,AccessMode,ConflictResolu
tion,AddToMru,TextCodepage,TextVisualLayout,Local)
将某个工作簿另存为指定名称的工作簿。可以看到,SaveAs 方法的参数很多,其中:
⚫ 所有参数均为可选参数。
⚫ 参数 FileName 指定要保存的工作簿的名称。可以提供保存的路径,否则将保存到当前文件夹中。
⚫ 参数 FileFormat 指定工作簿保存的格式。
⚫ 参数 Password 指定保存的工作簿的密码,区分大小写。
⚫ 参数 WriteResPassword 指定工作簿的写保护密码。如果使用密码保存工作簿并且在打开时未提供密码,则以只读方式打开该工作簿。
⚫ 参数 CreateBackup 设置为 True 时,创建工作簿的备份。
⚫ 参数 AddToMru 设置为 True 时,将工作簿添加到最近使用文件列表中。
示例代码 1:保存所有打开的工作簿
下面的代码保存所有打开的工作簿。

示例代码 2:添加新工作簿并以指定的名称保存该工作簿
下面的代码先添加一个新工作簿,然后以变量 strName 指定的字符串作为名称保存该工作簿。

结果:

示例代码 3:替换现有的工作簿
在使用 SaveAs 方法指定文件名保存工作簿时,如果刚好存在相同名称的工作簿文件,那么 Excel 就会给用户发出一条警告消息,提示用户确定是否覆盖已存在的文件。

结果:

如果不想显示警告,可以设置DisplayAlerts,如下图所示

结果:不显示警告。