【VBA】批量转化表格格式（xls转xlsx、csv转xlsx）

最新推荐文章于 2025-04-14 16:48:40 发布

莫里_Katie

最新推荐文章于 2025-04-14 16:48:40 发布

阅读量2.7k

点赞数 8

分类专栏： VBA 文章标签： vba excel

本文链接：https://blog.youkuaiyun.com/weixin_47313201/article/details/110239210

版权

本文介绍了如何使用VBA快速批量转换Excel表格格式，包括将xls文件转换为xlsx文件以及csv文件转换为xlsx文件，提高工作效率。

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

VBA—批量转化表格格式（xls转xlsx、csv转xlsx）

Excel可以通过另存为方式改变表格格式，如果遇到大批表格需要转化格式，手动另存为效率尤其慢。
我们可以使用VBA批量转化表格格式。

分享两种常用的表格格式转化：

一、xls转xlsx

把所有需要转化的报表放在同一个文件下，打开表格—复制以下代码即可。

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

最低0.47元/天解锁文章