使用VBA实现xls批量转xlsx

最新推荐文章于 2024-06-28 16:12:31 发布

byhuamo

最新推荐文章于 2024-06-28 16:12:31 发布

阅读量2.9k

点赞数 4

分类专栏：那美克星

本文链接：https://blog.csdn.net/cnshsh/article/details/101297354

版权

使用Office 2019的VBA编辑器，通过编写特定代码，可实现xls文件批量转换为xlsx格式，无需第三方工具。操作包括开启VBA编辑器、粘贴代码并运行，转换过程中原文件不会被删除，如有需要可调整代码删除原xls。

摘要由CSDN通过智能技术生成

我用Office 2019编辑过的一批xls文件，在Office 2010下无法打开，但另存为xlsx后可以，所以需要将xls批量转换为xlsx。

此时，我的逗比同事要去抖音给我搜教程……

在不借助第三方工具的情况下，使用Excel内置的VBA即可实现功能。

首先，打开VBA编辑器：

菜单栏开发工具→Visual Basic

若菜单栏没有开发工具，则在菜单栏下方的功能区右键，选择「自定义功能区」，弹出新窗口中，在右侧勾选「开发工具」即可。
快捷键：Alt + F11

然后，在VBA编辑器中粘贴以下代码：

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