<em>excel</em>用VBA另保存<em>excel</em>中

合并单元格后合并区域的第一单元格的值就是该合并区域的值。不必给区域，另外区域一般用range表示。所以，cells[B5]:[E5]只用[B5]就可以了。

Sub CopySelectedSheets()

'定义知新工作簿名称为NewBookName
Dim NewBookName As String

'获取原工作道簿(这里的专名字是text.xls)第一张表格里的A1单元格内的值作为NewBookName的值
NewBookName = Workbooks("text.xls").Worksheets(1).Range("a1").Text

'复制原工作簿中第1,3,4张工作表属至新的空白工作簿中
Workbooks("text.xls").Worksheets(Array(1, 3, 4)).Copy

'将新工作簿重命名为NewBookName的值
ActiveWorkbook.SaveAs NewBookName

End Sub
"ActiveWorkbook.Close SaveChanges:=True" 这句，CLOSE 和SaveChanges之间应该要有个空格把

Excel 开发人员参考

Workbook.SaveAs
方法

在另一不同文件e68a84e799bee5baa6e997aee7ad94362中保存对工作簿所做的更改。
语法

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

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 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，Excel
使用对应于当前计算机上使用的系统区域设置语言的代码页。在“控制面板”中单击“区域和语言”，再单击“位置”选项卡，在“当前位置”下可获得此系统设置。

TextVisualLayout
可选
Variant
Microsoft Excel 中对于所有语言都忽略此参数。

注释

当 Excel 将工作簿保存为某种 CSV 或文本格式（使用 FileFormat 参数指定）时，它按逻辑布局保存这些格式。如果文件中左至右 (LTR)
文本嵌在右至左 (RTL) 文本中，或者相反，那么逻辑布局将把文件的内容，按照文件中所有语言的正确阅读顺序保存，而不考虑方向。当应用程序打开文件时，每串 LTR
或 RTL
字符将根据代码页中的字符值范围，按照正确的方向呈现。（除非用来打开文件的应用程序是为显示文件的确切内存布局而设计的应用程序，如调试器或编辑器）。

Local
可选
Variant
如果为 True，则以 Microsoft Excel（包括控制面板设置）的语言保存文件。如果为
False（默认值），则以 Visual Basic for Applications
(VBA) 的语言保存文件。VBA
通常为美国英语版本，除非从中运行 Workbooks.Open 的 VBA 项目是旧的国际化 XL5/95 VBA
项目。

说明

请使用同时包含大小写字母、数字和符号的强密码。弱密码不混合使用这些元素。强密码：Y6dh!et5。弱密码：House27。请使用您可以记住的强密码，这样就不必将它写下来。

示例

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

Visual Basic for Applications

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