拆分表格生成单个表格VBA

nnsea

Sub 拆分表格()

Dim x As Integer

Dim wb As Workbook

Application.ScreenUpdating = False

For x = 2 To 32

   Sheets(x).Copy

   Set wb = ActiveWorkbook

   With wb

    .SaveAs ThisWorkbook.Path & "/3月/" & Sheets(x).Name & ".xlsx"

    .Close True

   End With

Next x

Application.ScreenUpdating = True

End Sub