分享成果，隨喜真能量。大家好，今天繼續(xù)和大家分享VBA編程中常用的簡單“積木”代碼第71-73講的過程代碼。這也是我“搭積木”編程中利用到的積木。
越簡單的事物往往越容易理解，簡單的過程組合起來就是一個復(fù)雜的過程，我們要先認(rèn)真掌握這些簡單的過程，才能在可以為我們復(fù)雜的工程服務(wù)。
VBA過程代碼71：關(guān)閉所有工作簿，若工作簿已改變則彈出是否保存變化的對話框
Sub MyNZ()
MsgBox "關(guān)閉當(dāng)前所打開的所有工作簿"
Workbooks.Close
End Sub
代碼的解析說明：上述代碼用于關(guān)閉所有工作簿，如果工作簿已改變則彈出是否保存變化的對話框，Workbooks.Close由于后面沒有跟true或者false所以若工作簿已改變則彈出是否保存變化的對話框。
VBA過程代碼72：創(chuàng)建新的工作簿
Sub MyNZ()
MsgBox "創(chuàng)建一個帶有10個工作表的新工作簿"
Dim wb as Workbook
Set wb = NewWorkbook(10)
End Sub
Function NewWorkbook(wsCount As Integer) As Workbook
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nothing
If wsCount < 1 Or wsCount > 255 Then Exit Function
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Set NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
End Function
代碼的解析說明：自定義函數(shù)NewWorkbook可以創(chuàng)建最多帶有255個工作表的工作簿。本測試示例創(chuàng)建一個帶有10個工作表的新工作簿。
_________________________________
VBA過程代碼73：判斷工作簿是否存在，子過程中如果工作簿存在,則返回True
Sub MyNZ()
MsgBox "如果文件不存在則用信息框說明,否則打開該文件."
If Not FileExists("【路徑】/文件.xls") Then
MsgBox "這個工作簿不存在!"
Else
Workbooks.Open "【路徑】/文件.xls"
End If
End Sub
Function FileExists(FullFileName As String) As Boolean
FileExists = Len(Dir(FullFileName)) > 0
End Function
代碼的解析說明：本示例使用自定義函數(shù)FileExists判斷工作簿是否存在，若該工作簿已存在，則打開它。代碼中，“【路徑】/文件.xls”代表工作簿所在的文件夾名、子文件夾名和工作簿文件名。
下面是我根據(jù)自己20多年的VBA實際利用經(jīng)驗，編寫的四部經(jīng)驗教程，這些是較大塊的“積木”，可以獨立的完成某些或者某類系統(tǒng)的過程，歡迎有需要的朋友聯(lián)絡(luò)（WeChat:NZ9668）分享。利用這些可以提高自己的編程效率，選擇好積木，搭好積木。
第一套：《VBA代碼解決方案》是VBA中各個知識點的講解，覆蓋了絕大多數(shù)的知識點。
第二套：《VBA數(shù)據(jù)庫解決方案》是數(shù)據(jù)處理的利器；
第三套：《VBA數(shù)組與字典解決方案》中講解VBA的精華----字典。
第四套：面向初學(xué)及中級以下學(xué)員的視頻《VBA代碼解決方案》正在錄制。 “每天20分鐘，半年精進(jìn)VBA”活動正在火熱進(jìn)行中，越早參與，回饋越多。現(xiàn)在第一冊48講內(nèi)容已經(jīng)錄制完成。錄制到第二冊59講的課程。
上述教程中第一、二、三是PDF教程，第四套教程是視頻教程。其中視頻教程的優(yōu)惠活動正在進(jìn)行中。
責(zé)任編輯：
