Excel怎么批量将CSV格式转换为xlsx或xls格式？VBA、宏、软件？

最新推荐文章于 2024-07-31 14:55:39 发布

置顶骑士0-1

最新推荐文章于 2024-07-31 14:55:39 发布

阅读量1.9w

点赞数 11

分类专栏： OFFICE办公小技巧文章标签： Excel 转换格式 CSV、XLSX VBA宏转换软件

本文链接：https://blog.csdn.net/weixin_44435602/article/details/98313104

版权

OFFICE办公小技巧专栏收录该内容

4 篇文章 0 订阅

订阅专栏

怎么批量将CSV格式转换为xlsx或xls格式？

下面给大家介绍几种方法：

1、原始方法

如果是少量的Excel文件可以采用打开——另存为。。，选择想要转换的格式就OK了！

2、利用Excel的VBA

在你要转换的CSV文件夹中新建一个EXCEL文件并打开，创建一个宏。
然后在VBA通用窗体中输入下面代码：

Sub 转换()
Application.ScreenUpdating = False
pth = ThisWorkbook.Path & ""
flnm = Dir(pth & "*.csv")
Do While Len(flnm) > 0
    With Workbooks.Open(pth & flnm, ReadOnly:=True)
        .SaveAs Replace(flnm, ".csv", ""), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal)
        .Close
    End With
    flnm = Dir
Loop
End Sub

**D:\myFiles\write**是输出路径，然后点击工具栏中的运行-运行子过程/用户窗体，新的表格会自动保存。

3、利用小软件

这款软件的名字叫CSVtoExcel，是一款完全免费的批量CSV转EXCEL转换器，输出格式为xls和xlsx，转换时需要将csv文件都放到同一文件夹下，一键转换即可完成。
　特色：无需安装，完全免费，自定义输出路径，一键操作，WPS和OFFICE都可以。
下载地址：http://www.pc6.com/softview/SoftView_579062.html#download