分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的简单“积木”过程代码第56-60。简单的过程组合起来就是一个复杂的过程，越简单的事物往往越容易理解，我们要认真掌握这些简单的过程，可以为我们复杂的工程服务。这也是我“搭积木”编程的思想。
下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，没有任何拖泥带水，对于应用来讲，足矣，这些“积木”是较大的“积木”，可以独立的完成某个系统过程，欢迎有需要的朋友联络（WeChat:NZ）分享。
第一套：《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
第二套：《VBA数据库解决方案》是数据处理的利器；
第三套：《VBA数组与字典解决方案》中讲解VBA的精华----字典。
第四套：面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，“每天20分钟，半年精进VBA”活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成。
上述教程中第一、二、三是PDF教程，第四套教程是视频教程。其中视频教程的优惠活动正在进行中。
VBA过程代码56：取得当前打开的工作簿数(Count属性)
SubMyNZ()
MsgBox当前已打开的工作簿数为:Chr(10)Workbooks.Count
EndSub
代码的解析说明：本示例将弹出对话框提示当前打开的工作簿数Chr(10)是换行，Workbooks.Count是Workbooks的Count属性。
VBA过程代码57：激活工作簿(Activate方法)
SubMyNZ()
Workbooks(工作簿名).Activate
EndSub
代码的解析说明：Activate方法激活一个工作簿，使该工作簿为当前工作簿。
VBA过程代码58：依次激活已经打开的工作簿
SubMyNZ()
DimnAsLong,iAsLong
DimbAsString
MsgBox依次激活已经打开的工作簿
n=Workbooks.Count
Fori=1Ton
Workbooks(i).Activate
b=MsgBox(第i个工作簿被激活，还要继续吗?,vbYesNo)
Ifb=vbNoThenExitSub
Ifi=nThenMsgBox最后一个工作簿已被激活.
Nexti
EndSub
代码的解析说明：上述代码过程依次激活已经打开的工作簿，注意判断是否为最后一个工作薄的方法：Ifi=nThenMsgBox最后一个工作簿已被激活.
VBA过程代码59：工作簿的一些通用属性示例1
SubMyNZ()
MsgBox本工作簿的名称为ActiveWorkbook.Name
MsgBox本工作簿带完整路径的名称为ActiveWorkbook.FullName
MsgBox本工作簿对象的代码名为ActiveWorkbook.CodeName
MsgBox本工作簿的路径为ActiveWorkbook.Path
EndSub
代码的解析说明：上述过程将分别返回工作薄的名称、完整路径、代码名、和本工作簿的路径，注意，上述是以MsgBox形式返回，同样也可以以变量的方式返回值。
VBA过程代码60：工作簿的一些通用属性示例2
SubMyNZ()
IfActiveWorkbook.ReadOnlyThen
MsgBox本工作簿已经是以只读方式打开
Else
MsgBox本工作簿可读写.
EndIf
IfActiveWorkbook.SavedThen
MsgBox本工作簿已保存.
Else
MsgBox本工作簿需要保存.
EndIf
EndSub
代码的解析说明：上述过程将分别返回工作薄的读写属性以及save属性。注意，上述是以MsgBox形式返回，同样也可以以变量的方式返回值。