办公自动化：使用VBA实现批量将xls文件修改为xlsx文件

最新推荐文章于 2024-09-26 19:15:00 发布

Tassel_YUE

最新推荐文章于 2024-09-26 19:15:00 发布

阅读量200

点赞数 1

本文链接：https://blog.csdn.net/Tassel_YUE/article/details/142560078

版权

办公自动化专栏收录该内容

4 篇文章 0 订阅

订阅专栏

需求

由于没有python环境使用xlsd库，需要将一个文件夹下的30+个xls文件修改为xlsx文件，但是直接修改文件后缀名不可以。

使用excel直接执行vba代码即可。具体代码作用可以询问chatgpt

解法

打开一个xls文件，右键sheet，点击查看代码
输入以下代码：

'***********访问当前文件夹下所有子文件夹及文件,

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