VBA过程代码51：存所有打开的工作簿后退出Excel.

Dim wb As Workbook

For Each wb In Application.Workbooks

Next wb

End Sub

Wb 都要执行一次保存的操作。

VBA过程代码52：保存原来已存在且已打开的工作簿

Dim wb As Workbook

If wb.Path <> "" Then wb.Save

End Sub

VBA过程代码53：将工作簿以指定名保存在默认文件夹中

MsgBox "将工作簿以指定名保存在默认文件夹中."

End Sub

VBA过程代码54：将工作簿以指定名保存在默认文件夹中

Dim oldName As String, newName As String

oldName = ActiveWorkbook.Name

MsgBox "将<" & oldName & ">以<" & newName & ">的名称保存"

fname = folderName & "/" & newName

End Sub

VBA过程代码55：保存工作簿并建立备份工作簿

MsgBox "保存工作簿并建立备份工作簿"

ActiveWorkbook.SaveAs CreateBackup:=True

代码的解析说明：本示例将在当前文件夹中建立工作簿的备份，注意备份的位置是工作薄的默认位置。

看板：

1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。

3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动也即将结束。