1.把多个excel表都放在同一个文件夹里面,并在这个文件夹里面
2.用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面
3.将以下代码复制进窗体中
'***********访问当前文件夹下全部子文件夹及文件,Dim iFile(1 To 100000) As StringDim count As IntegerSub xls2xlsx()iPath = ThisWorkbook.PathOn Error Resume Nextcount = 0zdir iPathFor i = 1 To countIf iFile(i) Like "*.xls" And iFile(i) <> ThisWorkbook.FullName ThenMyFile = iFile(i)FilePath = Replace(MyFile, ".xls", ".xlsx")If Dir(FilePath, 16) = Empty ThenSet WBookOther = Workbooks.Open(MyFile)Application.ScreenUpdating = FalseActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=FalseWBookOther.Close SaveChanges:=False'解决不能close 文件问题Application.ScreenUpdating = TrueEnd IfEnd IfNextEnd SubSub zdir(p) '访问当前文件夹下全部子文件夹及文件Set fs = CreateObject("scripting.filesystemobject")For Each f In fs.GetFolder(p).FilesIf f <> ThisWorkbook.FullName Then count = count + 1: iFile(count) = fNextFor Each m In fs.GetFolder(p).SubFolderszdir mNextEnd Sub
4.点击运行,等待他自动操作完成即可