使用VB处理批量文件

将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是转换后存文件路径