分享成果，隨喜真能量。大家好，今天繼續和大家分享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形式返回，同樣也可以以變量的方式返回值。
閱讀更多 VBA專家 的文章
