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

在VBA（Visual Basic for Applications）中，你可以通过几个步骤实现这个功能：

1. **打开对话框选择文件夹**:
使用`Application.GetOpenFolder`函数显示一个文件夹选择器，让用户选择目标文件夹。

Dim selectedFolder As Object ' 定义变量存储用户选择的文件夹路径
selectedFolder = Application.GetOpenFilename("选取文件夹", , "文件夹")

2. **遍历范围创建子文件夹并复制模板**:
假设你有一个范围`Sheet1.Range("A1:B10")`，其中A列包含文件夹名，B列包含模板文件名。你可以使用For循环逐行处理。

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    Dim folderName As String
    folderName = Sheet1.Cells(i, 1).Value ' 获取当前单元格的文件夹名
    Dim templateFile As String
    templateFile = Sheet1.Cells(i, 2).Value ' 获取模板文件名
    
    ' 创建子文件夹
    Dim newFolderPath As String
    newFolderPath = selectedFolder.Path & "\" & folderName
    MkDir newFolderPath ' 使用MkDir创建新文件夹

    ' 将模板复制到新子文件夹
    ' 假设模板文件在同一工作簿内，其位置是ThisWorkbook.Sheets("模板").Range(templateFile)
    ' 使用Copy and Paste Special to copy the file
    ThisWorkbook.Sheets("模板").Cells(templateFile, 1).Copy _
        Destination:=newFolderPath & "\" & templateFile
Next i

3. **写入内容到新子文件夹**:
如果需要将单元格的内容写入到每个新建的模板文件中，你需要读取单元格的数据并操作相应的文件内容。这通常涉及到文本文件或Excel工作表的操作，具体取决于模板的格式。

4. **保存新文件**:
要按单元格内的名称保存修改后的文件，可以继续类似地处理，使用`SaveAs`方法指定新文件名。

    ' 保存为新名字
    ThisWorkbook.Sheets("模板").Cells(templateFile, 1).Copy _
        Filename:=newFolderPath & "\" & folderName & "_" & templateFile, _
        FileFormat:=xlCSV ' 或者其他所需的文件格式
Next i