Vba用弹窗选择文件夹批量创建以单元格命名新的子文件夹并在新的子文件夹中创建以单元格命名的新的工作表

在VBA中，你可以使用Excel的对象模型和用户交互功能来实现这个需求。以下是一个基本步骤的概述：

1. **打开文件浏览器**:
使用 `Application.GetOpenFilename` 或 `Shell` 函数打开一个文件浏览器，让用户选择需要处理的工作文件夹。

Sub ChooseFolder()
    Dim folderPath As String
    folderPath = Application.GetOpenFilename("选取文件夹", Title:="选择文件夹", _
        Filter:="文件夹(*)")
    ' 检查用户是否选择了文件夹
    If folderPath <> "" Then
        ' 进行后续操作...
    Else
        MsgBox "未选择文件夹，请重新选择。"
    End If
End Sub

2. **遍历并创建子文件夹**:
用选定的文件夹路径，配合 `Directory` 和 `CreateFolder` 方法，逐个创建以A1到某个指定范围内的单元格名称命名的新子文件夹。

Sub CreateFoldersInMainFolder()
    Dim mainFolderPath As String
    ' 假设mainFolderPath已经获取到
    Dim sheetRange As Range
    Set sheetRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:A10") ' 修改为你实际的范围
    
    For Each cell In sheetRange
        Dim newFolderPath As String
        newFolderPath = Join(Array(mainFolderPath, cell.Value), "\")
        If Not Directory(newFolderPath) Then
            MkDir newFolderPath ' 创建新文件夹
        End If
    Next cell
End Sub

3. **创建子工作簿**:
对于每个新创建的子文件夹，再用类似的方式创建一个新的工作簿，并将其命名为对应单元格的内容。

Sub CreateWorksheets()
    Dim newFolderPath As String
    ' 假设newFolderPath已经在上一步获取到
    Dim ws As Worksheet
    For Each cell In sheetRange
        Dim newSheetName As String
        newSheetName = cell.Value
        Set ws = Workbooks.Add(Visible:=False)
        ws.SaveAs Filename:=Join(Array(newFolderPath, newSheetName & ".xlsx"), "\"), FileFormat:=xlOpenXMLWorkbook
        ws.Close SaveChanges:=True
    Next cell
End Sub

记得替换上述代码中的 `"Sheet1"`、`"A1:A10"` 等部分为实际的范围和文件夹名称。运行完这三个函数后，会按照单元格中的名字，在选定的主文件夹下生成相应的子文件夹和工作簿。