奇妙的VBA代码之三十三：利用SAVE方法，SaveAs方法，SaveAs方法保存工作薄
朋友们好，今日我们讲解如何保存工作薄，这里我们将介绍三种方法，每种方法都有各自的意义，希望大家认真理解。
一：使用Save方法
Save方法保存指定工作簿所做的更改，语法如下：expression.Save
参数expression是必需的，该表达式返回一个Workbook对象。这种方法类似于我们在平时工作时点击“保存”按钮，这时工作薄将覆盖原来保存的文件为最新的文件。下面我们介绍一段代码，作为通用的代码可以利用：
使用Workbook对象的Save方法保存工作簿的更改，如下面的代码所示。
Sub MySaveWork()
ThisWorkbook.Save
End Sub
代码解析：MySaveWork过程保存代码所在的工作簿的修改。
二：如果是第一次保存工作簿，请使用SaveAs方法，同时为该文件指定文件名，
Workbook对象的SaveAs方法使用另外一个不同的文件名保存对工作簿所做的更改，语法如下：
SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Local)
参数Filename可选，表示要保存文件的文件名的字符串。可包含完整路径，如果不指定路径，将文件保存到当前文件夹中。使用SaveAs方法将工作簿另存为新文件后，将关闭原工作簿文件。
下面我们再介绍一种使用Workbook对象的SaveAs方法的代码。如下所示：
Sub MySaveAsWork()
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xls"
End Sub
代码解析：SaveAsWork过程将代码所在的工作簿保存为“book123”工作簿文件。
如果要保存为指定的文件名，可以使用INPUTBOX,弹出对话框，让使用者录入一个文件名后再保存。
三：如果用户希望工作簿在保存为另一文件名后，能继续编辑原工作簿，那么可以使用SaveCopyAs方法，
SaveCopyAs：方法将指定工作簿的副本保存到文件，但不修改内存中的打开工作簿，语法如下：SaveCopyAs(Filename)
参数Filename是必需的，用于指定工作簿副本的文件名。
下面介绍一下利用SAVECORYAS的方法保存工作薄的方法，如下面的代码所示。
Sub MySaveCopyWork()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\BOOK123.xls"
End Sub
代码解析：MySaveCopyWork过程使用SaveCopyAs方法保存代码所在的工作簿副本，并指定其名称。
四 实例介绍,将工作表单独保存为工作薄的方法。
我们首先介绍一下COPY方法：应用于Worksheet对象的Copy方法将指定工作表复制到工作簿的另一位置，语法如下：Copy (Before, After)
参数Before是可选的，用来指定工作表，复制的工作表将置于此工作表之前。
After是可选的，用来指定工作表，复制的工作表将置于此工作表之后。
注意点：不能同时指定Before参数和After参数。当Copy方法省略参数时，应用程序将新建一个空工作簿（新建工作簿将成为活动窗口），并将Copy方法引用的工作表复制到该空工作簿中。
下面介绍一下将工作簿中的几个工作表单独保存为一个工作簿文件的方法，此方法可以以数组的形式指定要复制的工作表，如下面的代码所示。
Sub MyArrSheetCopy()
On Error GoTo 100
Worksheets(Array("Sheet1", "Sheet2")).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"
ActiveWorkbook.Close SaveChanges:=True
Exit Sub
100:
ActiveWorkbook.Close False
End Sub
代码解析：MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。
第4行代码使用SaveAs方法保存活动工作簿，
下面我们看看三种方法的代码窗口及运行后结果：
代码截图：
上述代码中实例的代码运行前的窗口如下：
运行后会产生一个文件BOOK124的文件。
今日内容回向：
1 SAVE方法，SaveAs方法，SaveAs方法 的意义是什么？
2 如何产生一个新的工作薄用于保存原工作薄的工作表？
这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。
欢迎大家到我的自媒体平台沟通交流：公众号“NZ_9668”、社群“VBA学习交流群”、头条号“VBA专家”,百家号“VBA与GO语言”。
工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。