vba代码编程800例_⼀组实⽤的VBA常⽤编程代码语句分享
分享成果，随喜真能量。⼤家好，今天继续和⼤家分享VBA编程中常⽤的过程代码。简单的过程组合起来就是⼀个复杂的过程，越简单的事物往往越容易理解，我们要认真掌握这些简单的过程，为我们复杂的⼯程服务。这也是我“搭积⽊”编程的思想。
VBA过程代码51：存所有打开的⼯作簿后退出Excel.
Sub MyNZ()
Dim wb As Workbook
MsgBox "保存所有打开的⼯作簿后退出Excel."
For Each wb In Application.Workbooks
wb.Save
Next wb
Application.Quit
End Sub
代码的解析说明：上述过程保存当前的所有打开的⼯作薄，然后退出Application.Quit，在保存的时候⽤了⼀个for each 遍历循环，对于Application.Workbooks集合中的每⼀个元素
Wb 都要执⾏⼀次保存的操作。
-----------------------------------------------------------------------------------------------
VBA过程代码52：保存原来已存在且已打开的⼯作簿
Sub MyNZ()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Path <> "" Then wb.Save
Next wb
End Sub
代码的解析说明：本⽰例过程保存原来已存在且已打开的⼯作簿。其中⽤到了⼀个For Each的循环。在判断是否是已经存在的⽂件时⽤到了If wb.Path <> ""， wb.Path会返回⼯作薄的路径。
VBA过程代码53：将⼯作簿以指定名保存在默认⽂件夹中
Sub MyNZ()
MsgBox "将⼯作簿以指定名保存在默认⽂件夹中."
ActiveWorkbook.SaveAs "<⼯作簿名>.xls"
End Sub
代码的解析说明：SaveAs⽅法相当于“另存为……”命令，以指定名称保存⼯作簿。该⽅法有12个参数，均为可选参数。如果未指定保存的路径，那么将在默认⽂件夹中保存该⼯作簿。如果⽂件夹中该
⼯作簿名已存在，则提⽰是否替换原⼯作簿。
VBA过程代码54：将⼯作簿以指定名保存在默认⽂件夹中
Sub MyNZ()
Dim oldName As String, newName As String
Dim folderName As String, fname As String
oldName = ActiveWorkbook.Name
newName = "new" & oldName
MsgBox "将<" & oldName & ">以<" & newName & ">的名称保存"
folderName = Application.DefaultFilePath
fname = folderName & "/" & newName
ActiveWorkbook.SaveAs fname
End Sub
代码的解析说明：本⽰例将当前⼯作簿以⼀个新名(即new加原名)保存在默认⽂件夹中。
VBA过程代码55：保存⼯作簿并建⽴备份⼯作簿
Sub MyNZ()
MsgBox "保存⼯作簿并建⽴备份⼯作簿"
ActiveWorkbook.SaveAs CreateBackup:=True
End Sub
代码的解析说明：本⽰例将在当前⽂件夹中建⽴⼯作簿的备份，注意备份的位置是⼯作薄的默认位置。
vba编程免费教程
看板：
下⾯是我根据我⾃⼰20多年的VBA实际利⽤经验，编写的⼏部经验教程，全是满满的“⼲货”，对于应⽤来讲，⾜矣，欢迎有需要的朋友联络（WeChat:NZ9668）分享；其中视频教程的优惠活动正在进⾏中。
1 《VBA代码解决⽅案》是VBA中各个知识点的讲解，覆盖了绝⼤多数的知识点。
2 《VBA数据库解决⽅案》是数据处理的利器；
3 《VBA数组与字典解决⽅案》中讲解VBA的精华----字典。
4 ⾯向初学及中级以下学员的视频《VBA代码解决⽅案》正在录制。看视频，“每天20分钟，半年精进VBA”活动正在⽕热进⾏中，越早报名，回馈越多。现在第⼀册48讲内容已经录制完成，第⼀阶段的优惠活动也即将结束。