如何将excel.xls文件批量转换成.xlsx格式

谁最温柔最有派

已于 2022-06-28 11:29:27 修改

阅读量1.1w

点赞数 23

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

于 2022-05-19 13:09:57 首次发布

本文链接：https://blog.youkuaiyun.com/shoppingend/article/details/124861072

版权

office 专栏收录该内容

3 篇文章

订阅专栏

这篇博客介绍了如何使用Microsoft Excel的宏来批量将.xls格式的文件转换为.xlsx格式。通过创建并运行宏代码，可以自动化处理同一文件夹下的所有.xls文件，无需手动逐一转换，大大提高了工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.把多个excel表都放在同一个文件夹里面，并在这个文件夹里面
在这里插入图片描述
2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面

3.将以下代码复制进窗体中

'***********访问当前文件夹下全部子文件夹及文件,
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