分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA編程中常用的簡單「積木」過程代碼，這些內容多是取至我的「VBA代碼解決方案」教程中內容。NO.139-NO.142內容是：
NO.139：如何做到顯示工作簿的路徑
NO.140：如何做到顯示工作簿的名稱和完全路徑
NO.141：關閉當前宏代碼運行的工作簿，不保存對工作簿的任何更改
NO.142：建立新的工作簿並對新建工作簿進行操作。
VBA過程代碼139：如何做到顯示工作簿的路徑。
Sub mynz()
MsgBox "名稱為：" & Workbooks("book21.xlsm").Path
End Sub
代碼的解析說明：上述過程過程顯示工作簿「book21」的路徑。
VBA過程代碼140：如何做到顯示工作簿的名稱和完全路徑
Sub mynz()
MsgBox "第一個打開的工作簿名字為：" & Workbooks(1).Name
MsgBox "包括完整路徑的工作簿名稱為：" & Workbooks(1).FullName
End Sub
代碼的解析說明：上述過程過程用 MsgBox 對話框顯示"第一個打開的工作簿名字。
VBA過程代碼141：關閉當前宏代碼運行的工作簿，不保存對工作簿的任何更改
Sub mynz()
ThisWorkbook.Close SaveChanges:=False
End Sub
代碼的解析說明：上述過程過程使用Close方法關閉當前宏代碼運行的工作簿，不保存對工作簿的任何更改。
注意 本屬性僅可在 Microsoft Excel內使用。不能使用此屬性訪問任何其他應用程式的工作
VBA過程代碼142：建立新的工作簿並對新建工作簿進行操作
Sub mynz()
Dim Nowbook As Workbook
Dim ShName As Variant
Dim Arr As Variant
Dim i As Integer
Dim myNewWorkbook As Integer
myNewWorkbook = Application.SheetsInNewWorkbook
ShName = Array("餘額數", "單價數", "數量", "金額數")
Arr = Array("1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")
Application.SheetsInNewWorkbook = 4
Set Nowbook = Workbooks.Add
With Nowbook
For i = 1 To 4
With .Sheets(i)
.Name = ShName(i - 1)
.Range("B1").Resize(1, UBound(Arr) + 1) = Arr
.Range("A2") = "品名"
End With
Next
.SaveAs Filename:=ThisWorkbook.Path & "\" & "庫存.xlsx"
.Close Savechanges:=True
End With
Set Nowbook = Nothing
Application.SheetsInNewWorkbook = myNewWorkbook
End Sub
代碼的解析說明：上述過程使用Add方法建立新的工作簿並對新建工作簿進行操作。
代碼將Application對象的SheetsInNewWorkbook屬性設置為4，在新建工作簿時插入4張工作表。使用Add方法建立新的工作簿，應用於Workbooks對象的Add方法新建工作簿，新建的工作簿將成為活動工作簿。代碼使用SaveAs方法將新建工作簿重命名為「庫存.xls」保存在同一目錄中。代碼使用Close方法關閉工作簿。
VBA實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現推出了四部VBA教程，這些是我多年編程經驗的記錄，也是我「積木編程」思想的體現。每一講都是較大塊的「積木」，可以獨立的完成某些或者某類的過程，有需要的朋友可以聯絡（WeChat:NZ9668）分享。利用這些可以提高自己的編程效率。
① 第一套「VBA代碼解決方案」PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備。
② 第二套「VBA資料庫解決方案」PDF教程。資料庫是數據處理的利器，對於中級人員應該掌握這個內容了。
③ 第三套「VBA數組與字典解決方案」PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備。
④ 第四套「VBA代碼解決方案」視頻教程。目前正在錄製，「每天20分鐘，半年精進VBA」，越早參與，回饋越多。現在錄製到第二冊的84講，第二級階段的優惠期即將結束。