"搭积木"编写VBA程序，真的非常简单容易

分享成果，随喜真能量。大家好，今天继续和大家分享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形式返回，同样也可以以变量的方式返回值。