Workbook.SaveAs 方法 (Excel)

将对工作簿的更改保存到另一不同文件中。

注意

有兴趣开发跨多个平台扩展 Office 体验的解决方案吗？ 查看新的 Office 外接程序模型。 与VSTO外接程序和解决方案相比，Office外接程序占用的空间较小，您可以使用几乎任何Web编程技术（例如HTML5，JavaScript，CSS3和XML）来构建它们。

语法

表达式。SaveAs (FileName、 FileFormat、 Password、 WriteResPassword、 ReadOnlyRecommended、 CreateBackup、 AccessMode、 ConflictResolution、 AddToMru、 TextCodepage、 TextVisualLayout、 Local)

表达 一个代表 Workbook 对象的变量。

参数

名称	必需/可选	数据类型	说明
FileName	可选	Variant	一个表示要保存文件的文件名的字符串。 可包含完整路径，如果不指定路径，Microsoft Excel 将文件保存到当前文件夹中。
FileFormat	可选	Variant	保存文件时使用的文件格式。 有关有效选项的列表，请参阅 XlFileFormat 枚举。 对于现有文件，默认采用上一次指定的文件格式；对于新文件，默认采用当前所用 Excel 版本的格式。
Password	可选	Variant	它是一个区分大小写的字符串（最长不超过 15 个字符），用于指定文件的保护密码。
WriteResPassword	可选	Variant	一个表示文件写保护密码的字符串。 如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。
ReadOnlyRecommended	可选	Variant	如果为 True ，则在打开文件时显示一条消息，提示该文件以只读方式打开。
CreateBackup	可选	Variant	如果为 True，则创建备份文件。
AccessMode	可选	XlSaveAsAccessMode	工作簿的访问模式。
ConflictResolution	可选	XlSaveConflictResolution	一个 XlSaveConflictResolution 值，该值确定方法在保存工作簿时如何解决冲突。 如果设为 xlUserResolution，则显示冲突解决对话框。 如果设为 xlLocalSessionChanges，则自动接受本地用户的更改。 如果设为 xlOtherSessionChanges，则自动接受来自其他会话的更改（而不是本地用户的更改）。 如果省略此参数，则显示冲突处理对话框。
AddToMru	可选	Variant	如果为 True，则将该工作簿添加到最近使用的文件列表中。 默认值为 False 。
TextCodepage	可选	Variant	对于 Microsoft Excel 中的所有语言均忽略。 注意：当 Excel 将工作簿保存为使用 FileFormat 参数指定的 CSV 或文本格式之一时，它将使用与当前计算机上正在使用的系统区域设置语言对应的代码页。 此系统设置在“当前位置”下的“控制面板>区域和语言>位置”选项卡中可用。
TextVisualLayout	可选	Variant	对于 Microsoft Excel 中的所有语言均忽略。 注意：当 Excel 将工作簿保存为使用 FileFormat 参数指定的 CSV 或文本格式之一时，它会将这些格式保存在逻辑布局中。 如果从文件中的从右到左 (RTL) 文本内嵌入从左到右 (LTR) 文本（反之亦然），则无论方向如何，逻辑布局将以文件中所有语言的正确读取顺序保存文件的内容。 当应用程序打开文件时，LTR 或 RTL 字符的每次运行都会根据代码页 (中的字符值范围以正确的方向呈现，除非用于显示文件的确切内存布局的应用程序（如调试器或编辑器）用于打开文件) 。
Local	可选	Variant	如果为 True，则以 Microsoft Excel（包括控制面板设置）的语言保存文件。 如果为 False（默认值），则以 Visual Basic for Applications (VBA) 的语言保存文件，其中 Visual Basic for Applications (VBA) 通常为美国英语版本，除非从中运行 Workbooks.Open 的 VBA 项目是旧的已国际化的 XL5/95 VBA 项目。

备注

请使用组合大小写字母、数字和符号的强密码。 弱密码不混合使用这些元素。

• 强密码：Y6dh！et5
• 弱密码：House27

请使用可以记住的强密码，这样就不必记录密码了。

示例

本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。

Set NewBook = Workbooks.Add 
Do 
    fName = Application.GetSaveAsFilename 
Loop Until fName <> False 
NewBook.SaveAs Filename:=fName

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。