日常工作中，我們時常需要創(chuàng)建文件夾來管理文件，通常都是一個一個創(chuàng)建，通過VBA可以實現(xiàn)批量創(chuàng)建文件夾。接下來分享使用VBA編寫代碼來批量創(chuàng)建文件夾的步驟，希望能幫到大家。

微軟Office LTSC 2021專業(yè)增強版 簡體中文批量許可版 2024年09月更新

• 類型：辦公軟件
• 大小：2.2GB
• 語言：簡體中文
• 時間：2024-09-12

查看詳情

操作步驟如下：

步驟 1：啟動VBA編輯器

打開Excel文件，依次點擊【開發(fā)工具】—【Visual Basic】，或按下快捷鍵Alt + F11，啟動VBA編輯器。

步驟 2：插入新模塊

在VBA編輯器中，右鍵點擊任意模塊，選擇“插入”，再點擊“模塊”，插入一個新的VBA模塊。

步驟 3：編寫VBA代碼

輸入以下VBA代碼：

Sub 創(chuàng)建文件夾()
Dim folderNames() As String
Dim parentFolder As String
Dim folderPath As String
Dim i As Integer
' 指定要創(chuàng)建的文件夾名稱，可根據需求添加或修改
folderNames = Split("1月,2月,3月", ",")
parentFolder = "E:\桌面\" ' 替換你想要創(chuàng)建文件夾的路徑
' 循環(huán)創(chuàng)建文件夾
For i = LBound(folderNames) To UBound(folderNames)
folderPath = parentFolder & folderNames(i)
MkDir folderPath
Next i
MsgBox "文件夾創(chuàng)建完成！"
End Sub

步驟 4：運行代碼

點擊工具欄中的“運行”按鈕或按下F5鍵，運行VBA代碼。提示框中會顯示“文件夾創(chuàng)建完成！”，表示文件夾創(chuàng)建成功。

步驟 5：查看創(chuàng)建結果

找到我們放置創(chuàng)建文件夾的位置，即存放的路徑。就可以看到已經成功創(chuàng)建了以“1月”、“2月”等命名的文件夾。

這段VBA代碼是用于批量創(chuàng)建指定名稱的文件夾。

相關釋義：

• folderNames() As String: 這是一個字符串數(shù)組，用于存儲要創(chuàng)建的文件夾的名稱。每個文件夾的名稱都以逗號分隔，例如：“文件夾1,文件夾2,文件夾3”。
• parentFolder As String: 這是一個字符串變量，用于存儲要創(chuàng)建文件夾的父文件夾的路徑。在這個示例中，父文件夾的路徑是"E:\桌面"。
• folderPath As String: 這是一個字符串變量，用于存儲每個文件夾的完整路徑。在循環(huán)中，將每個文件夾的名稱與父文件夾路徑拼接起來，形成完整的文件夾路徑。
• For i = LBound(folderNames) To UBound(folderNames): 這是一個循環(huán)結構，用于遍歷文件夾名稱數(shù)組中的每個元素。LBound和UBound函數(shù)分別返回數(shù)組的下限和上限。
• MkDir folderPath: 這是一個VBA函數(shù)，用于創(chuàng)建文件夾。在每次循環(huán)中，將當前文件夾的完整路徑傳遞給MkDir函數(shù)，以創(chuàng)建對應的文件夾。
• MsgBox “文件夾創(chuàng)建完成！”: 這行代碼用于在創(chuàng)建完成后彈出一個消息框，提示用戶文件夾創(chuàng)建完成。
• 在代碼中需要替換`parentFolder`變量的值為你希望創(chuàng)建文件夾的父文件夾路徑?？筛鶕嶋H需求修改循環(huán)次數(shù)和文件夾命名規(guī)則。

通過以上步驟，我們可以利用VBA批量創(chuàng)建文件夾，提高文件管理效率，特別適用于需要大量文件夾的時候，如整理資料、存檔數(shù)據等，希望大家喜歡，請繼續(xù)關注腳本之家。

相關推薦：

excel表格怎么制作文件側標簽? excel文件夾標簽的做法

最新評論