使用VB处理批量文件

用户4128047

发布于 2025-12-23 15:17:46

770

将csv批量文件转换为xls：步骤: 1、新建excel文件； 2、选开发工具； 3、点击"宏"； 4、在工程目录中的ThisWorkbook中输入一下代码;

Sub csv2excel()
'ChDir "C:\"
Dim sDir As String
Dim curdir As String
curdir = "E:\testData"
targetdir = "E:\testData"
'curdir = ThisWorkbook.Path
sDir = Dir(curdir & "\*.csv")
While Len(sDir)
Workbooks.Open Filename:=curdir & "\" & sDir
Dim temp As String
temp = Left(sDir, Len(sDir) - 4)
ActiveWorkbook.SaveAs Filename:=targetdir & "\" & temp & ".xlsx", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
sDir = Dir
Wend
End Sub

其中，curdir是要转换的文件路径 targetdir是转换后存文件路径

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2025-12-23，如有侵权请联系 cloudcommunity@tencent.com 删除

path