工作中我們可能遇到這樣的情況，需要根據 EXCEL 中所列的名稱建立文件夾，并且老闆還會要求，每個文件夾下根據不同的類别再分别建立子文件夾。遇到這樣的要求，我們最笨的辦法就是右鍵，新建文件夾，重命名，再建子文件夾，再重命名，如果數據少的話尚且可行，但是如果有幾百條甚至上千條記錄都需要建文件夾存檔的話，這種方法顯然會耗費大量時間。

以學生成績單為例為大家分享如何快速批量建立相應名稱的文件夾。

要求如下：

1. 為每個學生單獨建立文件夾，将文件夾命名為學生姓名。
2. 每個文件夾下建立三個文件夾，分别命名為 “高一”，“高二”，“高三”，以存放三年來的曆次考試成績

學生名單（素材來原于網絡，如有雷同，純屬巧合）

下面為大家展示一下效果，可以看一下過程有多迅速。

示例效果圖

在功能區點擊 “開發工具”（如果沒用過需手動調出，方法為：文件>選項>自定義功能區>右側的開發工具打鈎>确定），在開發工具選項卡下，點擊左側第一個 Visual Basic ，進入 VBA 窗口，或者 ALT F11 可直接進入。點擊 “插入” > “模塊” 即可進行代碼書寫。

代碼

Sub 新建文件夾()

For i = 2 To 37

a = Cells(i, "A")

VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a)

VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高一")

VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高二")

VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高三")

Next

End Sub

将上述代碼複制至編輯區，下面逐行解釋一下，大家根據具有情況略作修改即可。

1. Sub 和 End Sub 為程序的開始和結束，不用作任何修改。

2. For 和 Next 為循環語句的開始和結束。For i = 2 To 38 中的 2 和 37 是根據 A 列的姓名的範圍确定的，示例表中 A 列第 2 行到第 37 行是學生姓名，因此這裡 To 前後的數字為 2 和 37, 大家可根據具體情況進行修改。

3. a = Cells(i, "A") 是依次取出 A2 到 A37 的值，也是學生姓名，以便建文件夾後命名使用，第一次取出 “孫蘭”，第二次取出 “蔣婷文”，依次類推。如果要命名的值不是在 A 列，而是在 B 列，可将引号内的 A 改成 B 即可。

4. VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a) 這句是在桌面上 “學生檔案” 文件夾下建立要求1的文件夾，即以學生姓名命名的文件夾。此處大家需先在桌面上建立 “學生檔案” 的文件夾。

5. VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高一") 這名是在剛建的文件夾中建立以 “高一” 命名的子文件夾。

6. VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高一") 這名是在剛建的文件夾中建立以 “高二” 命名的子文件夾。

7. VBA.MkDir ("C:\Users\lenovo\Desktop\學生檔案\" & a & "\高一") 這名是在剛建的文件夾中建立以 “高三” 命名的子文件夾。

修改完上述參數之後，小夥伴們隻需按下鍵盤上的 F5 鍵，幾秒鐘的功夫，即可将所有文件夾建好并自動命名名要求的名稱。

注意：路徑中的 lenovo 為電腦名，不同人的電腦名不一樣，路徑不能出錯，否則會運行出錯！

大家有不懂的歡迎評論或者私信我都可以哦，有其他 EXCEL 問題也歡迎騷擾啦 !

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!