CSV格式批量转换成xlsx格式工作表的方法_哈哈猫

个人资料

微博

正文字体大小：大中小

CSV格式批量转换成xlsx格式工作表的方法

(2016-08-31 17:29:53)

分类：计算机

1. 在批量CSV文件夹中新建一个EXCEL文件并打开，在打开的文件中sheet文件名上单击右键选查看代码。

2. 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

3. 再点击工具栏中的运行-运行子过程/用户窗体）新的表格会自动保存

4. 上述代码没有删除原有.csv文件，end with后添一句


kill pth & flnm

就完美了。


5. 如果在该文件夹中没有转换的xlsx文件，在“开始”-》“搜索程序和文件”-》*.xlsx找到文件的位置即可。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report