将sheet批量保存为单独表格

Sub ExportSheets()
    Dim wsh As Worksheet
    Dim strPath As String
    strPath = ThisWorkbook.Path & "\"
    For Each wsh In ActiveWindow.SelectedSheets
        wsh.Copy
        With ActiveWorkbook
            .SaveAs strPath & wsh.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            .Close
        End With
    Next wsh
End Sub