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

在VBA (Visual Basic for Applications) 中，你可以编写一段脚本来实现这样的功能。以下是基本步骤：

1. 弹窗选择文件夹：首先，你需要创建一个`FolderPicker`对话框让用户选择一个文件夹。这通常通过`Application.GetOpenFolderDialog()`函数完成。

Dim folderPath As String
FolderPath = Application.GetOpenFolderDialog().SelectedItems(1).Path

2. 遍历工作表并操作：假设你有一个范围或单个工作表（如Sheet1），需要处理每个单元格的内容。例如，可以使用`Range`对象来遍历每一行或每一列：

For Each cell In Sheet1.Range("A1:C10") ' 假设你想从A1到C10的单元格开始操作
    Dim subfolderName As String
    subfolderName = cell.Value ' 获取当前单元格的值作为新子文件夹名
    
    ' 创建子文件夹
    If Not Dir(FolderPath & "\" & subfolderName, vbDirectory) = "" Then ' 检查文件夹是否已存在
        MkDir FOLDERPATH & "\" & subfolderName ' 如果不存在则创建
    End If

    ' 写入模板工作表
    Dim templateSheet As Worksheet
    Set templateSheet = ThisWorkbook.Worksheets("Template")
    templateSheet.Cells(cell.Row, 1).Value = "数据" ' 写入对应单元格
    
    ' 新建并保存子工作表
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = subfolderName
    newSheet.Cells(cell.Row, 1).Value = "数据" ' 同样写入数据
    newSheet.SaveAs Filename:=FolderPath & "\" & subfolderName & "\" & newSheet.Name & ".xlsx"
Next cell

记得替换上述代码中的工作表名称、范围和模板工作表中的"数据"字段。