Excel中使用VBA将每个表分别导出为单独的工作簿

需求描述

一份工作簿里面有5个表

• 将工作表1导出来成为一个单独的工作簿,命名1.xlsx
• 将工作表2导出来成为一个单独的工作簿,命名2.xlsx
• 将工作表3导出来成为一个单独的工作簿,命名3.xlsx
• 将工作表4导出来成为一个单独的工作簿,命名4.xlsx
• 将工作表5导出来成为一个单独的工作簿,命名5.xlsx

VBA

Sub outputSheetAsWorkbook()
    Dim Wkb As Workbook
    Dim Sht As Worksheet
    Dim strPath$

    Const PRENAME = "任意文件名前缀"    '这里可以设置保存文件的文件名前缀

    strPath = ThisWorkbook.Path     '默认为当前文件夹所在目录保存

    For Each Sht In Worksheets
        If Sht.Name <> "总表" Then  '至少要保留1个表,否则会报错
            Sht.Move
            Set Wkb = ActiveWorkbook
            Wkb.SaveAs strPath & "\" & PRENAME & "_" & Sht.Name & ".xlsx"
            Wkb.Close 0
        End If
    Next
End Sub