Vba用弹窗选择文件夹批量创建以单元格命名新的子文件夹

在VBA（Visual Basic for Applications）中，你可以使用`FileSystemObject`来操作文件系统，并通过`MsgBox`弹出对话框让用户选择文件夹。以下是一个简单的步骤和示例代码，用于批量创建以单元格命名的新子文件夹：

1. 首先，你需要引用`Microsoft Scripting Runtime`库，可以在VBA编辑器中通过“工具”->“引用...”找到并添加。

2. 然后编写一个函数，它会接受当前活动工作表范围（例如A1到Z100）内的单元格名称作为参数：

Function CreateFolders(folderPath As String)
    Dim fso As Object ' 创建 FileSystemObject 对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 更改为实际的工作表名
    
    Dim rng As Range
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) ' 获取数据范围

    For Each cell In rng
        Dim folderName As String
        folderName = cell.Value ' 获取单元格里的文件夹名称
        
        If Not fso.FolderExists(folderPath & "\" & folderName) Then ' 检查文件夹是否存在
            fso.CreateFolder folderPath & "\" & folderName ' 如果不存在则创建
        End If
    Next cell
    
    CreateFolders = True
End Function

3. 调用此函数之前，你需要在某个地方展示一个消息对话框让用户选择文件夹路径，比如：

Dim folderSelection As Variant
folderSelection = Application.GetOpenFilename("Select a folder", , "", , "*.*)")

If Not IsNull(folderSelection) Then ' 用户选择了文件夹
    Call CreateFolders(folderSelection) ' 使用选定的文件夹路径创建子文件夹
Else
    MsgBox "No folder selected.", vbCritical
End If

4. 运行这段代码，用户会看到一个打开文件对话框，选择文件夹后，程序会遍历指定范围内的每个单元格，如果对应的文件夹不存在，就创建一个新的子文件夹。