ChatGPT与VBA的魔法：一键批量建立文件夹

Excel VBA教程：根据A列姓名批量创建文件夹

目标：使用Excel VBA，在指定路径下根据工作表A列的姓名批量创建文件夹。

1. 打开Excel VBA编辑器:

• 打开Excel。

• 按下 Alt + F11，这会打开VBA编辑器。

2. 插入新模块：

• 在VBA编辑器顶部的菜单中点击“插入”。

• 在下拉菜单中选择“模块”。这会在项目浏览器中创建一个新模块。

3. 编写VBA代码：

在新模块的代码窗口中，复制并粘贴以下VBA代码：

Sub CreateFoldersBasedOnNames()

  Dim rng As Range

  Dim cell As Range

  Dim folderPath As String

  Dim folderName As String

  '定义要创建文件夹的路径

  folderPath = "C:\Users\Administrator\Desktop\学生文件夹\"

  '假设从A2开始，直到最后一个有数据的单元格

  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

      '如果文件夹不存在，则创建文件夹

      If Dir(folderName, vbDirectory) = "" Then

        MkDir folderName

      End If

    End If

  Next cell

  MsgBox "文件夹创建完成！", vbInformation, "完成"

End Sub

注意事项：

1. 确保你有在目标文件夹（例如"C:\Users\Administrator\Desktop\学生文件夹"）的写入权限。

2. 确保"C:\Users\Administrator\Desktop\学生文件夹"这个路径已经存在，否则程序会报错。

3. 如果你的姓名数据不在第一个sheet上，需要适当调整 ThisWorkbook.Sheets(1) 中的索引号。

现在你已经学会了如何使用Excel VBA根据工作表A列的姓名在指定路径下批量创建文件夹。希望这个教程对你有所帮助！