分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的简单"积木"过程代码第56-60。简单的过程组合起来就是一个复杂的过程，越简单的事物往往越容易理解，我们要认真掌握这些简单的过程，可以为我们复杂的工程服务。这也是我"搭积木"编程的思想。
下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，没有任何拖泥带水，对于应用来讲，足矣，这些"积木"是较大的"积木"，可以独立的完成某个系统过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。
第一套：《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。
第二套：《VBA数据库解决方案》是数据处理的利器；
第三套：《VBA数组与字典解决方案》中讲解VBA的精华—-字典。
第四套：面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成。
上述教程中第一、二、三是PDF教程，第四套教程是视频教程。其中视频教程的优惠活动正在进行中。
VBA过程代码56：取得当前打开的工作簿数(Count属性)
Sub MyNZ()
MsgBox "当前已打开的工作簿数为:" & Chr(10) & Workbooks.Count
End Sub
代码的解析说明：本示例将弹出对话框提示当前打开的工作簿数Chr(10)是换行，Workbooks.Count是Workbooks的Count属性。
VBA过程代码57：激活工作簿(Activate方法)
Sub MyNZ()
Workbooks("<工作簿名>").Activate
End Sub
代码的解析说明：Activate方法激活一个工作簿，使该工作簿为当前工作簿。
VBA过程代码58：依次激活已经打开的工作簿
Sub MyNZ()
Dim n As Long, i As Long
Dim b As String
MsgBox "依次激活已经打开的工作簿"
n = Workbooks.Count
For i = 1 To n
Workbooks(i).Activate
b = MsgBox("第 " & i & "个工作簿被激活，还要继续吗?", vbYesNo)
If b = vbNo Then Exit Sub
If i = n Then MsgBox "最后一个工作簿已被激活."
Next i
End Sub
代码的解析说明：上述代码过程依次激活已经打开的工作簿，注意判断是否为最后一个工作薄的方法：If i = n Then MsgBox "最后一个工作簿已被激活."
VBA过程代码59：工作簿的一些通用属性示例1
Sub MyNZ()
MsgBox "本工作簿的名称为" & ActiveWorkbook.Name
MsgBox "本工作簿带完整路径的名称为" & ActiveWorkbook.FullName
MsgBox "本工作簿对象的代码名为" & ActiveWorkbook.CodeName
MsgBox "本工作簿的路径为" & ActiveWorkbook.Path
End Sub
代码的解析说明：上述过程将分别返回工作薄的名称、完整路径、代码名、和本工作簿的路径，注意，上述是以MsgBox形式返回，同样也可以以变量的方式返回值。
VBA过程代码60：工作簿的一些通用属性示例2
Sub MyNZ()
If ActiveWorkbook.ReadOnly Then
MsgBox "本工作簿已经是以只读方式打开"
Else
MsgBox "本工作簿可读写."
End If
If ActiveWorkbook.Saved Then
MsgBox "本工作簿已保存."
Else
MsgBox "本工作簿需要保存."
End If
End Sub
代码的解析说明：上述过程将分别返回工作薄的读写属性以及save属性。注意，上述是以MsgBox形式返回，同样也可以以变量的方式返回值。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。