vba显示正在加载_利用VBA代码显示工作簿的路径及完全路径的方案及对工作薄的操作...

分享成果，随喜真能量。大家好，今日内容仍是和大家分享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）分享。利用这些可以提高自己的编程效率。

1. 第一套“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备。
2. 第二套“VBA数据库解决方案”PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。
3. 第三套“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。
4. 第四套“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的84讲，第二级阶段的优惠期即将结束。