这个应该是不难的代码就用这个了Sub 高版本另存为低版本() Dim wk As Workbook, wk1 As Workbook, mypath As String, myfile As String, myfile1 As String '声明变量 Application.ScreenUpdating = False '禁止屏幕更新，加快程序运行速度 Application.DisplayAlerts = False Set wk = ThisWorkbook '赋值 mypath = wk.Path & "\" '获取当前工作表的路径 myfile = Dir(mypath & "*.xlsx") '调用当前工作簿同一个文件夹下的工作簿文件 Do While myfile <> "" If myfile <> wk.Name Then Set wk1 = Workbooks.Open(mypath & myfile, 0) '打开与当前工作簿不同名的工作簿 myfile1 = Left(myfile, Len(myfile) - 5) wk1.SaveAs Filename:=mypath & myfile1 & ".xls", FileFormat:= _ xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False'填写需要处理的代码 wk1.Close True '关闭刚刚打开的工作簿 End If myfile = Dir '调用同一个文件夹下的下一个工作簿 Loop Application.DisplayAlerts = True Application.ScreenUpdating = True '恢复屏幕更新 MsgBox "完成" End Sub要求呢，把这个代码放在excel模块中，然后把该文件和你需要转换的文件放在同一个文件夹下面
