求助，高手请进，如何批量将xls转换为xlsx，我用的2013版

低的向高的转应该不可以

用VBA，遍历xls文件，然后saveas xlsx

直接搜素个多个工作簿合并然后再拆分的Vba

Sub fdgdfs()
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
Dim fs, fold, fls, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fold = fs.getfolder(ThisWorkbook.Path) 'folderpath指文件夹路径，string型，实践中自行替换
Set fls = fold.Files
For Each fl In fls
If InStr(fl.Name, ".xls") <> 0 And Right(fl.Name, 3) = "xls" Then '避免打开非Excel文
Workbooks.Open (ThisWorkbook.Path & "\" & fl.Name)
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Left(fl.Name, Len(fl.Name) - 4) & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub
代码好了刚才程序忘记使用红色部分了，你生成的文件全在我的文档里面！！！