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

在VBA（Visual Basic for Applications）中，你可以使用`Application.GetOpenFilename`函数让用户选择一个文件夹，然后通过修改路径加上每个单元格的内容来创建对应的子文件夹。这里是一个简单的示例：

Sub CreateFoldersFromCells()
    Dim ws As Worksheet ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你需要操作的工作表名称
    Dim cell As Range
    Dim folderPath As String
    Dim folderName As String
    
    For Each cell In ws.Range("A1:B10") ' 假设子文件夹信息在A列到B列之间
        If Not IsEmpty(cell.Value) Then ' 确保单元格不为空
            folderPath = Application.GetOpenFilename("Folder", , "选择根目录", , vbMultiSelect = False) ' 弹出文件选择框
            If-folderPath <> False Then ' 如果用户选择了文件夹
                folderName = cell.Offset(0, -1).Value ' 获取对应单元格的子文件夹名，假设在B列
                ' 创建子文件夹
                MkDir folderPath & "\" & folderName ' 使用MkDir方法创建新文件夹，记得追加反斜杠"\"
            End If
        End If
    Next cell
    
    ' 提示任务完成
    MsgBox "所有文件夹已成功创建!"
End Sub

在这个例子中，你需要将"Sheet1"、"A1:B10"以及文件夹的存放位置根据实际情况进行调整。