工作上有時候會需要一次建立很多檔案夾

如果一個一個按右鍵新增，再命名，然後重複N遍

如果N太龐大就顯得浪費時間

在網路上找到兩種方式可以利用Excel資料表新增檔案資料夾的方式

1.VBA +Excel 資料表

2.Excel資料表+輸出成Bat檔

兩者都是用到Mkdir的語法

只是一個是在VBA 一個是在 bat 批次檔

第1種方式：VBA +Excel 資料表

1)先建立所需要的檔案名稱
例如：

2)接下來是處理VBA

VBA的程序名稱可以用中文，「新增檔案資料夾」就是程序名稱 

參數說明如下：

r -資料的筆數，利用Range.End(xlDown).Row，向下到有資料的最後一列，取得所在的列數

out_path-資料夾輸出的路徑，最後要加上「 \」 表示在這個資料夾內

i-迴圈範圍，因為檔案名稱是從第2列開始

n-資料表的A欄–序號

c-資料表的B欄–縣市

s-資料表的C欄–學校

3)利用 For 迴圈逐一串接 MkDir 的語法 資料夾路徑\資料夾名稱

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

Public Sub 新增檔案資料夾()

  r = Worksheets(1).Range("A1").End(xlDown).Row
  
  out_path = "C:\Users\trico\Desktop\123\"
    For i = 2 To r
        n = Range("A" & i)
        c = Range("B" & i)
        s = Range("C" & i)
        
        fiel_name = n & "-" & c & "-" & s
            MkDir out_path & fiel_name
    
    Next
    
End Sub