excel:csv文件批量转换为xlsx的宏

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

超级无敌的小咩～

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

阅读量1w

点赞数 1

分类专栏：数据分析文章标签： excel

本文链接：https://blog.csdn.net/zhangmary/article/details/84820759

版权

本文介绍如何通过Excel的VBA宏实现CSV文件批量转换成XLSX格式。步骤包括新建Excel文件，打开VBA编辑器，插入模块，编写并运行宏代码，选择含有CSV文件的文件夹，宏会自动将该文件夹中的所有CSV转换为XLSX。

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

1、新建一个excel

2、选择alt+F11

3、选择insert model

4、输入程序，选择包含csv文件的文件夹

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Ope