VBA代码：拆分工作簿示例——将工作簿中的每个工作表保存为单独的工作簿

Sub SaveWorksheetsToWorkbook()
    Dim wks As Worksheet
    Dim strPath As String
    Dim strFileName As String
    Dim strExtension As String
    Dim lngFileFormatCode As Long
    Dim arr
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName =Application.DefaultFilePath & "\"
        .Title = "选择保存工作表的位置"
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "取消"
            Exit Sub
        Else
            strPath = .SelectedItems(1) &"\"
        End If
    End With
    arr = Split(ThisWorkbook.FullName,".")
    strExtension = arr(UBound(arr))
    Select Case strExtension
        Case "xlsb":lngFileFormatCode = 50
        Case "xlsx":lngFileFormatCode = 51
        Case "xlsm":lngFileFormatCode = 52
        Case "xls": lngFileFormatCode= 56
    End Select
    For Each wks In Worksheets
        strFileName = strPath & wks.Name& "." & strExtension
        wks.Copy
        ActiveWorkbook.SaveAsFilename:=strFileName, FileFormat:=lngFileFormatCode
        ActiveWorkbook.Close
    Next wks
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub