一：利用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 如何产生一个新的事情薄用于保存原事情薄的事情表？
