Excel VBA教程：根據(jù)A列姓名批量創(chuàng)建文件夾

目標：使用Excel VBA，在指定路徑下根據(jù)工作表A列的姓名批量創(chuàng)建文件夾。

1. 打開Excel VBA編輯器:

? 打開Excel。

? 按下 Alt + F11，這會打開VBA編輯器。

2. 插入新模塊：

? 在VBA編輯器頂部的菜單中點擊“插入”。

? 在下拉菜單中選擇“模塊”。這會在項目瀏覽器中創(chuàng)建一個新模塊。

3. 編寫VBA代碼：

在新模塊的代碼窗口中，復制并粘貼以下VBA代碼：

Sub CreateFoldersBasedOnNames()

??Dim rng As Range

??Dim cell As Range

??Dim folderPath As String

??Dim folderName As String

??'定義要創(chuàng)建文件夾的路徑

??folderPath = "C:\Users\Administrator\Desktop\學生文件夾\"

??'假設(shè)從A2開始，直到最后一個有數(shù)據(jù)的單元格

??Set rng = ThisWorkbook.Sheets(1).Range("A2:A" & ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, 1).End(xlUp).Row)

??'遍歷每一個姓名單元格

??For Each cell In rng

????If cell.Value <> "" Then

??????folderName = folderPath & cell.Value

??????'如果文件夾不存在，則創(chuàng)建文件夾

??????If Dir(folderName, vbDirectory) = "" Then

????????MkDir folderName

??????End If

????End If

??Next cell

??MsgBox "文件夾創(chuàng)建完成！", vbInformation, "完成"

End Sub

注意事項：

1. 確保你有在目標文件夾（例如"C:\Users\Administrator\Desktop\學生文件夾"）的寫入權(quán)限。

2. 確保"C:\Users\Administrator\Desktop\學生文件夾"這個路徑已經(jīng)存在，否則程序會報錯。

3. 如果你的姓名數(shù)據(jù)不在第一個sheet上，需要適當調(diào)整 ThisWorkbook.Sheets(1) 中的索引號。

現(xiàn)在你已經(jīng)學會了如何使用Excel VBA根據(jù)工作表A列的姓名在指定路徑下批量創(chuàng)建文件夾。希望這個教程對你有所幫助！