Vba用弹窗选择文件夹批量创建以单元格命名新的子文件夹，根据单元格内容写入模板工作表相对应的单元格创建新的工作表，然后以单元格内容命名保存到新的子文件夹中

在VBA中，实现这样的功能涉及到用户界面交互、文件操作以及Excel的对象模型。以下是步骤的一个简要概述：

1. **打开文件浏览器选择文件夹**:
使用 `Application.GetOpenFilename` 函数展示一个对话框让用户选择一个文件夹。将结果存储在一个变量中，比如 `strFolderPath`。

Dim strFolderPath As String
strFolderPath = Application.GetOpenFilename("Please select a folder", _
                                       , "Folders (*.*)")
If strFolderPath <> False Then ' 用户选择了文件夹
    ' ...
Else
    MsgBox "No folder selected."
End If

2. **读取源工作表并创建子文件夹**:
获取模板工作表，遍历每一行单元格，根据单元格内容创建新的子文件夹并在指定路径下。

Dim wsTemplate As Worksheet
Set wsTemplate = ThisWorkbook.Worksheets("YourTemplateName") ' 替换为模板工作表名
Dim rngCells As Range
Set rngCells = wsTemplate.Range("A2:B10") ' 假设我们处理A2至B10之间的单元格

For Each cel In rngCells
    Dim newFolderName As String
    newFolderName = cel.Value ' 根据单元格内容获取新文件夹名
    If newFolderName <> "" Then
        Dim newFolderPath As String
        newFolderPath = strFolderPath & "\" & newFolderName ' 创建完整的文件夹路径
        MkDir newFolderPath ' 创建文件夹
    End If
Next cel

3. **创建新的工作表并写入模板内容**:
对于每个新创建的子文件夹，使用 `CreateObject` 方法创建一个新的工作簿，并根据单元格内容创建新的工作表。

Dim newWorkbook As Workbook
Set newWorkbook = CreateObject("Excel.Application").Workbooks.Add
' 为每个新文件夹创建一个工作簿...
newWorkbook.SaveAs Filename:=newFolderPath & "\" & cel.Value & ".xlsx" ' 保存工作簿，以单元格内容命名
newWorkbook.Close SaveChanges:=True ' 关闭工作簿

4. **错误处理和清理**:
添加适当的错误处理代码，如检查文件是否已经存在，防止覆盖。

完成以上步骤后，这个脚本就能实现所需的功能。记得替换上述代码中的变量和引用，使其适应你的具体需求。