用vba批量拆分表并保存为不同名称文件簿

在VBA（Visual Basic for Applications）中，批量拆分Excel工作簿并保存为不同名称的单独文件可以使用`SaveAs`方法结合循环结构来完成。这里是一个简单的示例，假设你想将Sheet1到SheetN拆分为单独的工作簿，并按照原Sheet名作为新工作簿的名称：

Sub SplitSheets()
    Dim ws As Worksheet
    Dim savePath As String '指定保存路径
    Dim filename As String
    
    '设置保存路径
    savePath = "C:\YourSaveFolder\" '请替换为你实际的保存路径
    
    '遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Index > 0 Then '跳过第一个工作表（通常是包含表头的）
            '创建新的工作簿并将当前工作表复制过去
            Set newWorkbook = Workbooks.Add
            ws.Copy Before:=newWorkbook.Sheets(1)
            
            '设置新工作簿的名称
            filename = savePath & ws.Name & ".xlsx"
            
            '保存新工作簿
            newWorkbook.SaveAs Filename:=filename, FileFormat:=xlOpenXMLWorkbook
            newWorkbook.Close SaveChanges:=False '关闭工作簿，不保存更改
        End If
    Next ws
End Sub

记得将`savePath`变量替换为你想要保存文件的实际路径。运行这个宏后，每个工作表都会被复制到一个新的Excel工作簿，并按其原始名称命名。