Vba表格数据写入模板并保存到用弹窗选择的文件夹中指定的子文件夹

在VBA（Visual Basic for Applications）中，你可以通过循环和文件操作来实现这个功能。首先，你需要打开一个模板Excel工作簿，然后将表格数据写入到用户选择的子文件夹内。

以下是一个简单的步骤描述：

1. **创建一个用户输入窗口**：使用`Application.GetOpenFilename`函数弹出一个文件选择对话框，让用户选择他们想要保存数据的主文件夹。

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

2. **检查路径是否已存在**：检查所选路径是否为有效的文件夹，并确保有权限写入。如果不存在，则需要创建子文件夹。

If Not IO.FileDirectoryExists(folderPath) Then
    MkDir folderPath ' 创建目录
End If

3. **遍历表格数据**：假设你已经有了一个名为`TableData`的数据范围，你可以使用`For Each`循环来逐行写入数据到新创建的子文件夹下的新Excel工作簿。

Dim ws As Worksheet, newWorkbook As Workbook
For Each ws In ThisWorkbook.Worksheets ' 这里假设是从当前工作簿复制
    Dim fileName As String
    fileName = ws.Name & ".xlsx" ' 文件名可以根据实际需求命名

    Set newWorkbook = Workbooks.Add
    With newWorkbook
        .SaveAs Filename:=folderPath & "\" & fileName, FileFormat:=xlOpenXMLWorkbook ' 写入数据并保存为新的Excel文件
        .Close SaveChanges:=False ' 关闭工作簿但不保存
    End With
Next ws

4. **关闭活动的工作簿**：最后别忘了关闭当前的活跃工作簿。

ThisWorkbook.Close SaveChanges:=False