Vba利用模板新建工作表另存到另外一个文件夹中

在VBA（Visual Basic for Applications）中，你可以编写宏来自动创建新的工作表并保存到指定的文件夹。以下是一个简单的示例代码片段，它演示了如何通过模板创建新工作表，并将其保存到特定路径：

Sub CreateNewSheetAndSave()
    ' 定义源工作簿、模板工作表和目标文件夹路径
    Dim srcWB As Workbook
    Set srcWB = ThisWorkbook ' 当前正在运行宏的工作簿

    Dim templateSheet As Worksheet
    For Each templateSheet In srcWB.Sheets ' 指定工作簿中的所有工作表作为模板
        ' 创建一个新的工作簿
        Dim newWB As Workbook
        Set newWB = Workbooks.Add(Visible:=False)

        ' 复制模板工作表到新工作簿
        newWB.Worksheets(1).Name = templateSheet.Name
        newWB.Worksheets(1).Activate
        templateSheet.Copy After:=newWB.Worksheets(newWB.Worksheets.Count)

        ' 设置新工作簿的保存位置
        Dim savePath As String
        savePath = "C:\Your\Target\Folder\" ' 替换为你想要保存的目标文件夹路径
        
        ' 保存新工作簿
        newWB.SaveAs Filename:=savePath & templateSheet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        newWB.Close SaveChanges:=True ' 关闭工作簿

        ' 清理变量
        Set newWB = Nothing
    Next templateSheet
    
    ' 如果有错误，在此处理
End Sub

记得将`"C:\Your\Target\Folder\"`替换为实际的文件夹路径。