《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第二十八讲:利用SAVE，SaveAs，SaveCopyAs方法保存工作薄

【分享成果，随喜正能量】249 品茶，不仅仅是一种饮品，更是一种生活的态度。当我们坐在安静的角落，手握着一杯清香的茶，品味着茶叶的芬芳，仿佛整个世界都变得宁静起来。这时，我们可以放下一切烦恼，沉浸在茶香中，享受属于自己的片刻宁静。。

第二十八讲 利用SAVE，SaveAs，SaveCopyAs方法保存工作薄

朋友们好，今日我们讲解如何保存工作薄，这里我们将介绍三种方法，每种方法都有各自的意义，希望大家认真理解。

1 使用Save方法

Save方法保存指定工作簿所做的更改，

语法如下：expression.Save

参数expression是必需的，该表达式返回一个Workbook对象。这种方法类似于我们在平时工作时点击“保存”按钮，这时工作薄将覆盖原来保存的文件为最新的文件。下面我们介绍一段代码，作为通用的代码可以利用：

使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示。

Sub mynz_28_1()

ThisWorkbook.Save

End Sub

代码截图：

代码解析：以上过程保存代码所在的工作簿的修改。

2 使用SaveAs方法第一次保存工作簿

如果是第一次保存工作簿，请使用SaveAs方法，同时为该文件指定文件名，

Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改，语法如下：

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

参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。使用SaveAs方法将工作簿另存为新文件后，将关闭原工作簿文件。

下面我们再介绍一种使用Workbook对象的SaveAs方法的代码。如下所示：

Sub mynz_28_2()

ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xls"

End Sub

代码截图：

代码解析：mynz_28_2过程将代码所在的工作簿保存为“book123”工作簿文件。

如果要保存为指定的文件名，可以使用INPUTBOX,弹出对话框，让使用者录入一个文件名后再保存。

3 SaveCopyAs方法，继续编辑原工作簿

如果用户希望工作簿在保存为另一文件名后，能继续编辑原工作簿，那么可以使用SaveCopyAs方法，

SaveCopyAs：方法将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿，语法如下：SaveCopyAs(Filename)

参数Filename是必需的，用于指定工作簿副本的文件名。

下面介绍一下利用SAVECORYAS的方法保存工作薄的方法，如下面的代码所示：

Sub mynz_28_3()

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\BOOK123.xlsx"

End Sub

代码截图：

代码解析：以上过程使用SaveCopyAs方法保存代码所在的工作簿副本，并指定其名称。

4 将工作表内容单独保存为工作薄的方法

我们首先介绍一下COPY方法：应用于Worksheet对象的Copy方法将指定工作表复制到工作簿的另一位置，语法如下：Copy (Before, After)

参数Before是可选的，用来指定工作表，复制的工作表将置于此工作表之前。

After是可选的，用来指定工作表，复制的工作表将置于此工作表之后。

• 注意点：不能同时指定Before参数和After参数。当Copy方法省略参数时，应用程序将新建一个空工作簿（新建工作簿将成为活动窗口），并将Copy方法引用的工作表复制到该空工作簿中。

下面介绍一下将工作簿中的几个工作表单独保存为一个工作簿文件的方法，此方法可以以数组的形式指定要复制的工作表，如下面的代码所示。

Sub mynz_28() '第28讲 利用SAVE方法，SaveAs方法，SaveCopyAs方法保存工作薄

On Error GoTo 100

Worksheets(Array("28", "29.30")).Copy

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xlsx"

ActiveWorkbook.Close SaveChanges:=True

Exit Sub

100:

ActiveWorkbook.Close False

End Sub

代码截图：

代码解析：以上过程将“28”和“29.30”工作表单独保存为一个工作簿文件。

第4行代码使用SaveAs方法保存活动工作簿。

下面我们看看代码窗口及运行后会产生一个单独的文件。

今日内容回向：

1 SAVE方法，SaveAs方法，SaveAs方法 的意义是什么？

2 如何产生一个新的工作薄用于保存原工作薄的工作表？

本讲内容参考程序文件：VBA代码解决方案（28-31）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：