如何将包含多个工作表的Excel（.xls）文件拆分为单独的Excel文件？

我有一个excel.xls文件，包含10张工作表。我想将所有这些工作表拆分为单独的.xls文件。excel是否有将工作表导出到单独的.xls文件的选项？

请尝试此代码

Sub Splitbook()

    Dim xPath As String
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls", fileformat:=56 
    Application.ActiveWorkbook.Close False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

这些是Excel 2007-2013中的主要文件格式，注意：在Mac的Excel中，值为+1

51 = xlOpenXMLWorkbook (without macro's in 2007-2013, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2013, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2013 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2013, xls)
6 = ".csv"
-4158 = ".txt"
36 = ".prn"

---

所有文件格式代码

均指其工作模式。。但是，当尝试打开文件时，它会显示一条消息，该文件试图打开指定文件扩展名的不同格式。请在打开文件之前验证该文件是否已损坏并且是受信任的源文件是否可以转换csv文件？如果已解决，请回答