如果这些Excel文件都在一个文件夹下，用宏可以实现。在该文件夹下新建一Excel，打开它，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo Line1
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("*.xlsx")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0
ActiveWorkbook.SaveAs Replace(Match, ".xlsx", ".xls")
ActiveWorkbook.Close 0
End If
Match = Dir$
Loop Until Len(Match) = 0
Line1: Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
在此界面直接按F5运行此宏，所有的.xlsx文件另存为.xls。
