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

在VBA（Visual Basic for Applications）中，你可以编写一段脚本来实现这个功能，步骤大致如下：

1. **打开Excel并获取用户选择的文件夹**：
使用`Application.GetOpenFilename`函数弹出一个文件浏览器窗口让用户选择需要处理的文件夹路径。

Dim folderPath As String
folderPath = Application.GetOpenFilename("Folder", , "选择文件夹")

2. **遍历工作表，读取单元格名称作为新子文件夹名和工作表名**：
对每个工作表循环，获取单元格A1的内容（这里假设你想要使用的子文件夹名字存储在A列），并将工作表保存的文件名设置为该单元格对应的值。

For Each ws In ThisWorkbook.Worksheets
    Dim subFolderName As String
    subFolderName = ws.Cells(1, 1).Value ' 获取A1的单元格内容
    '...
Next ws

3. **创建子文件夹并在其中操作**：
利用`MkDir`函数创建子文件夹，并定位到该文件夹。

If Len(folderPath) > 0 Then
    Dim newFolderPath As String
    newFolderPath = DirCombine(folderPath, subFolderName)
    If Not DirectoryExists(newFolderPath) Then
        MkDir newFolderPath
    End If
    Set wsNew = Workbooks.Add(xlWBATWorksheet)
    
    ' 将其他单元格内容复制到新工作簿相应位置：
    wsNew.Range("A1").Value = ws.Cells(2, 1).Value ' 示例，假设从B1开始
    '...
end if

4. **保存新工作表**：
使用`SaveAs`方法，将新工作表另存为以当前单元格内容命名的文件，保存在子文件夹内。

If wsNew IsNot Nothing Then
    wsNew.SaveAs Filename:=newFolderPath & "\" & ws.Cells(1, 1).Value & ".xlsx" ' 替换".xlsx"为你所需的文件扩展名
    wsNew.Close SaveChanges:=False
End If

5. **清理内存**：
关闭未使用的变量和工作簿。

Set ws = Nothing
Set wsNew = Nothing