【需求】

實(shí)現(xiàn)將某一文件夾下所有文件名都整理出來的功能。

【實(shí)現(xiàn)思路】

1，選擇文件夾

2，遍歷文件夾下文件

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

Kevin Cai，公眾號：VBA基礎(chǔ)入門手把手教你使用VBA做工具（二）

本期分享如何使用窗體設(shè)計工具，將前面兩期制作的工具轉(zhuǎn)變成用窗體設(shè)計的工具。

1，插入用戶窗體。（VBE界面，右鍵，插入用戶窗體）

2，變更窗體名稱，背景顏色。（屬性caption變更名稱，屬性backColor變更）

3，插入框架。（點(diǎn)擊工具箱，控件中的框架）

4，修改框架名稱。（屬性caption）

5，在框架內(nèi)插入文本框。

6，在框架內(nèi)插入命令按鈕。

7，修改按鈕名稱。（屬性caption）

8，雙擊選擇按鈕。

9，將我們之前前兩期寫過的文件夾選擇按鈕代碼粘過來。

10，變更成窗體后我們選擇的文件夾路徑的值，就應(yīng)該放到上面插入的文本框內(nèi)，所以上面的代碼需要做下修改。由于上面文本框的名稱為TextBox1，則上面第4行代碼應(yīng)該變更為【TextBox1.Text = .SelectedItems(1)】。

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

11，讓我們測試下代碼的正確性。下面畫面按F5運(yùn)行代碼。

由此可見代碼沒有問題。

快來試試吧。