手把手教你使用VBA做工具（一）
耗费大量时间截图，超级详细，想学的同学一定要跟着我一起做啊！不然我的努力就白费了！暂时没时间的先收藏
【需求】
实现将某一文件夹下所有文件名都整理出来的功能。
【实现思路】
1，选择文件夹
2，遍历文件夹下文件
3，把文件名写入到Excel中。
【跟我做】
1，新建Excel，自己命名，我们这里的例子将他命名为【ReadFilesList】。
2，打开并且将它另存为xlsm格式。
3，打开VBE编辑界面（ALT+F11），并插入一个模块。
4，首先，要在Excel界面做一个用户输入文件夹路径的界面。
5，然后做一个按钮，用来选择文件夹，选择文件夹后，会把文件夹路径显示在C2单元格内。
注意：如果现在功能区视图后面没有【开发工具】的同学，请接着做5-1，如果有的同学请做5-2。
5-1，点击功能区文件，然后点击选项。
点击自定义功能区，然后把开发工具打钩，然后点确定。
5-2，点击开发工具，插入【表单控件-按钮】。
6，调整按钮大小后，出现下图，点确定。
7，按钮添加成功后，重命名为选择（在按钮上右键，点编辑文字）。
8，写选择按钮的代码。使用FileDialog中的msoFileDialogFolderPicker方法来选择文件夹。然后把选择后的路径赋给单元格C2。
Sub selectInpath()
With Application.FileDialog(msoFileDialogFolderPicker) .Show Sheets('Tool').Range('C2') = .SelectedItems(1)End With End Sub9，然后再按钮上右键，把按钮关联到我们刚才写的代码。（按钮右键，指定宏，然后选择我们刚才写的sub的名字，然后点确定）
10，然后测试下刚才我们所写的代码是否好用。让我们点击按钮选择。
随意选择一个文件夹，点确定。
然后，我们刚才选择的文件夹路径显示在了C2单元格内，说明了我们的代码是正确的。
就这样，这个需求的第一步我们就算是完成了，接下来的内容我们之后会分享，快关注我跟我一起学吧。
赞 (0)