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

我正在使用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