另外：点击我的头像关注后，私信回复关键词【函数】~
免费领取： Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板
工作中，有时候为了做一个文件目录，需要将指定路径下的文件名批量提取出来。
可能，很多同学都是不管三七二十一，一个一个复制粘贴就是了！最后累得一头大汗。
其实，解决这个问题有很多种方法，比如VBA，比如批处理。但今天，小熊老师教大家一招必杀技——1秒完成文件名批量提取。
如下图，我们有100个每日一练课程的课件文档，现在要批量将课件名提取到Excel中。
方法超级简单！
1、鼠标放在地址栏，复制当前文件的地址路径。
2、粘贴到浏览器地址栏中，按下Enter键。别问为什么，奇迹马上发生！
这时，浏览器中就会显示所有文件名称，按CTRL+A全选所有内容，复制到Excel表格中。
虽然复制到Excel表格中显示是有超链接的，但是现在是打不开文件的，所以选中A列，右键删除超链接，现在就得到了所有文件目录。
下一步，我们要建立目录超链接。
超链接用到公式HYPERLINK($A$1&A4,A4)，这里注意粘贴到Excel表格中的A1单元格内容“E:Excel每日一练 的索引"这里要修改一下，只保留“E:Excel每日一练”这部分就可以。
具体操作见下图GIF：
现在，一个带有超链接导航的文件名目录就做好了。
怎么样，超级简单吧？
今天的内容就到这里。
『今日推荐』
表格学院仪表营来了！
——《3天学会Excel高端仪表盘(Dashboard)制作》，两个案例实操+100个Dashboard模板赠送，你也可以做出高大上的数据面板！
案例1：通过交互实现指标全面切换
案例2：通过切片器实现人口流动的可视化
另外：点击我的头像关注后，私信回复关键词【函数】~
免费领取： Excel函数数据分析课【6节高清视频系列课】+ 4300套Excel高颜值图表模板

上一章给大家分享了前面学的数组和Range对象的属性方法，工作薄和工作表的属性的使用进行了综合举例，这一篇文章继续对上一章没有分享的内容继续举例。
在举例子之前先对Dir函数具体说明一下：
Dir函数的作用就是返回一个文件或者文件夹的名称。
语法：
Dir[(pathname[, attributes])]
Pathname：第一个参数表示文件或者文件夹的路径。
Attributes：第二个参数是文件或者文件夹的属性。
vbNormal 默认值，表示指定返回没有任何属性的文件
vbDirectory 表示指定返回没有任何属性的文件和文件夹
当函数中没有第二个参数attributes就是表示返需要返回没有任何属性的文件。
pathname参数指定的文件或文件夹找不到时，Dir函数返回一个0长度的空字符串” ”。
把一个工作薄中的所有工作表拆分成单个的工作薄并保存
程序运行的结果：
代码1：
Sub ce()
Application.ScreenUpdating = False
Dim f As String
Dim s As Worksheet
f = ThisWorkbook.Path & " 今天要新建的目录"
If Len(Dir(f, vbDirector)) = 0 Then
MkDir f
End If
For Each s In Worksheets
s.Copy
ActiveWorkbook.SaveAs f & "" & s.Name & ".xls"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
再举个例子：
从20到120数据中随机从里面抽取4个数字a.b.c.d(可以重复)，这4个数字计算：a/b * c/d，输出结果需要精确到小数点后6位！
代码2：
Sub test1()
Dim arr(1 To 4) As Variant
Dim i As Integer, j As Integer
Dim k As Double
Randomize
For i = 1 To 4
arr(i) = Int((Rnd * 100) + 20)
Next
For j = 1 To 4
Worksheets("sheet49").Cells(j, 1) = arr(j)
Next
k = (arr(1) / arr(2)) * (arr(3) / arr(4))
Worksheets("sheet49").Range("A11").NumberFormatLocal = "0.000000_ "
Worksheets("sheet49").Range("A11") = k
End Sub
运行结果：
喜欢的请关注我，谢谢！ 今天就先分享到这里，明天继续分享。

Macro是可以用来录制一些操作的工具，然后你可以看到具体内部执行的一些代码。通过这些代码，我们可以更快更直接的找到所需要查询的API函数。我们以最简单的做一个拉伸特征开始，看如何找到对应的API

1.显示Macro工具条：



2. 点击工具条上的录制按钮，然后手动进行零件的新建，选择一个基准面，画一个圆，拉伸特征。然后点击工具条的停止按钮，指定保存路径以及文件名。 最后点击编辑宏，选择刚刚保存的文件。

3.那么我们就可以看到刚才录制操作代码了：



4. 在不太熟悉的情况下，可以在VBA的界面上，进入到Main代码之后，按F8,进行逐步调试，看哪一步是我们想了解的操作。

5.在我们知道 FeatureExtrusion2 这一步是创建拉伸特征之后 ，我们就可以去API帮助里面查询对应的API了。 





进去之后 ，注意要找到最新的，有很多旧的API已经被弃用了。



这个才是最新的：



然后查询结果中还有一些示例(后面以Example(VBA C# VB.net)的)，可以进一步进行深入学习。

对于一些宏操作无法录制出来的命令，只能通过API帮助去找对应的信息了。

建议把solidworks设计为英文界面，这个有助于在帮助中查找到对应的信息。

 

 

Workbooks是所有工作簿对象组成的集合，而Wrokbook对象是Workbooks集合的一个成员。
1.引用集合中的工作簿
利用工作簿名引用工作簿，如已经打开了"Book1.xlsm"工作簿，那么Workbooks("Book1.xlsm")就代表这个工作簿对象。
2.访问对象的属性，获得工作簿文件的信息
通过代码获得指定工作簿的名称、保存的路径等文件信息，示例代码如下。
Sub WbMsg()
    Range("B2") = ThisWorkbook.Name '获得工作簿的名称
    Range("B3") = ThisWorkbook.Path '获得工作簿文件所在的路径
    Range("B4") = ThisWorkbook.FullName '获得带路径的工作簿名称
End Sub

代码中的ThisWorkbook代表代码所在的工作簿对象。
注：后缀为.xlsx的工作簿无法保存VBA代码。如果工作簿中编写了宏代码，则将工作簿保存成后缀为.xls或者.xlsm的文件。
3.用Add方法创建工作簿
Workbooks.Add '创建空白工作簿

Workbooks.Add "D:\模板.xlsm" '指定用来创建工作簿的模板

4.用Open方法打开工作簿
打开一个Excel工作簿文件，最简单的方法是使用Workbooks对象的Open方法，示例代码入戏。
Workbooks.Open Filename:="D:\模板.xlsm"

方法Open和参数Filename之间用空格分隔，参数及参数数值之间用":="连接。
在实际使用时，代码中的参数名称Filename可以省略不写，将代码写为：
Workbooks.Open "D:\模板.xlsm"

更改代码中的路径及文件名称，即可打开其他的工作簿文件。
5.用Activate方法激活工作簿
虽然可以同时打开多个工作簿，但同一时间只能有一个工作簿是活动的。如果想让不活动的工作簿变为活动工作簿，可以用Wrokbooks对象的Activate方法激活它。例如：
Workbooks("模板.xlsm").Activate

6.保存工作簿文件
用Save方法保存已经存在的文件，例如：
ThisWorkbook.Save '保存代码所在的工作簿

用SaveAs方法将工作簿另存为新文件。如果是第1次保存一个新建的工作簿，或需要将工作簿另存为一个新文件时，应该使用SaveAs方法，例如：
ThisWorkbook.SaveAs Filename:="D:\Test.xlsm"

另存新文件后不关闭原文件。使用SaveAs方法将工作簿另存为新文件后，Excel将关闭原文件并自动打开另存为得到的新文件，如果希望继续保留原文件不打开新文件，应该使用SaveCopyAs方法。例如：
ThisWorkbook.SaveCopyAs Filename:="D:\Test.xlsm"

7.用Close方法关闭工作簿
调用工作簿对象的Close方法，可以关闭打开的工作簿。例如：
Workbooks.Close '关闭当前打开的所有工作簿

可以通过索引号、名称等指定要打开的工作簿，例如：
Workbooks("Test.xlsm").Close '关闭名称为Test的工作簿

Workbooks("Test.xlsm").Close savechange:=True '关闭并保存对工作簿的修改

8. ThisWorkbook与ActiveWorkbook
两者都返回Workbook对象。不同之处在于，ThisWorkbook是对代码所在工作簿的引用，ActiveWorkbook是对活动工作簿的引用。


微信公众号：VBA168
淘宝店铺地址：https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162
关注微信公众号，每天及时接收Excel VBA经典示例讲解。
淘宝店铺提供Excel定制服务。
祝你工作和学习更轻松！