手把手教你使用窗体设计工具（一）

【前情回顾】

【需求】

实现将某一文件夹下所有文件名都整理出来的功能。

【实现思路】

1，选择文件夹

2，遍历文件夹下文件

3，把文件名写入到Excel中。

Kevin Cai，公众号：VBA基础入门手把手教你使用VBA做工具（一）

【需求】

实现将某一文件夹下所有文件名都整理出来的功能。

【实现思路】

1，选择文件夹

2，遍历文件夹下文件

3，把文件名写入到Excel中。

Kevin Cai，公众号：VBA基础入门手把手教你使用VBA做工具（二）

本期分享如何使用窗体设计工具，将前面两期制作的工具转变成用窗体设计的工具。

1，插入用户窗体。（VBE界面，右键，插入用户窗体）

2，变更窗体名称，背景颜色。（属性caption变更名称，属性backColor变更）

3，插入框架。（点击工具箱，控件中的框架）

4，修改框架名称。（属性caption）

5，在框架内插入文本框。

6，在框架内插入命令按钮。

7，修改按钮名称。（属性caption）

8，双击选择按钮。

9，将我们之前前两期写过的文件夹选择按钮代码粘过来。

Private Sub CommandButton1_Click()With Application.FileDialog(msoFileDialogFolderPicker) .Show Sheets('Tool').Range('C2') = .SelectedItems(1)End WithEnd Sub

10，变更成窗体后我们选择的文件夹路径的值，就应该放到上面插入的文本框内，所以上面的代码需要做下修改。由于上面文本框的名称为TextBox1，则上面第4行代码应该变更为【TextBox1.Text = .SelectedItems(1)】。

Private Sub CommandButton1_Click()With Application.FileDialog(msoFileDialogFolderPicker)    .Show    TextBox1.Text = .SelectedItems(1)End WithEnd Sub

11，让我们测试下代码的正确性。下面画面按F5运行代码。

由此可见代码没有问题。

快来试试吧。