VBA将除汇总表外的其他分表导出为单独的工作簿

以下是一个示例VBA代码，可以将除汇总表外的其他分表导出为单独的工作簿。请注意，此代码仅适用于当前活动工作簿中包含多个工作表的情况。

Sub ExportSheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim newWB As Workbook
    Dim savePath As String
    
    '设置保存路径
    savePath = "C:\Users\Username\Documents\"
    
    '打开当前活动工作簿
    Set wb = ActiveWorkbook
    
    '循环遍历每个工作表
    For Each ws In wb.Worksheets
        '排除汇总表
        If ws.Name <> "汇总" Then
            '将工作表复制到一个新工作簿
            ws.Copy
            Set newWB = ActiveWorkbook
            
            '保存新工作簿并关闭
            newWB.SaveAs Filename:=savePath & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            newWB.Close saveChanges:=False
        End If
    Next ws
End Sub

在此示例中，代码将汇总表之外的每个工作表复制到一个新的工作簿，并使用工作表的名称作为文件名保存该工作簿。您可以根据需要更改保存路径和文件格式。