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的文件。