Excel如何提取所有工作表并将其保存为.xls 2003版本中的单个文件

Question

我正在使用Excel 2010，文件是xlsx，但我想将我的工作簿的所有工作表提取为xls 2003版本中的单个文件。最后，我会得到10个文件作为我的10张。

我不知道如何执行此任务。

提前谢谢

编辑这是我尝试改编的代码

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xls"
    Next

    Application.ScreenUpdating = True
End Sub