批量将xls转换成xlsx

最新推荐文章于 2024-09-26 16:07:24 发布

RS&

最新推荐文章于 2024-09-26 16:07:24 发布

阅读量4.2k

点赞数

分类专栏：办公文章标签： excel

原文链接：https://blog.csdn.net/weixin_44674885/article/details/88669259

版权

办公专栏收录该内容

18 篇文章 1 订阅

订阅专栏

转载：https://blog.csdn.net/weixin_44674885/article/details/88669259

1.xls和xlsx区别：xls格式最大行数为65535；xlsx格式最大行数为1048576。
2.xls批量转换成xlsx:
方法一：利用Excel中VBA代码
在需要转换的xls文件目录下新建文件，并打开代码页面，输入代码：

'***********访问当前文件夹下所有子文件夹及文件,
Dim iFile(1 To 100000) As String
Dim count As Integer
Sub xls2xlsx()
    iPath = ThisWorkbook.Path
    On Error Resume Next
    count = 0
    zdir iPath
    For i = 1 To count
        If iFile(i) Like "*.xls" And iFile(i) <> ThisWorkbook.FullName Then
            MyFile = iFile(i)
            FilePath = Replace(MyFile, ".xls", ".xlsx")
            If Dir(FilePath, 16) = Empty Then
                Set WBookOther = Workbooks.Open(MyFile)
                Application.ScreenUpdating = False
                ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
                WBookOther.Close SaveChanges:=False      '解决不能close 文件问题
                Application.ScreenUpdating = True
            End If
        End If
    Next
End Sub
Sub zdir(p)       '访问当前文件夹下所有子文件夹及文件
  Set fs = CreateObject("scripting.filesystemobject")
  For Each f In fs.GetFolder(p).Files
    If f <> ThisWorkbook.FullName Then count = count + 1: iFile(count) = f
  Next
  For Each m In fs.GetFolder(p).SubFolders
      zdir m
  Next
End Sub