如何用vba批量将.csv文件转为.xls文件

leooja · 发表于 2014-8-29 15:36

如题，数据文件很大，一个一个打开另存太慢了

zhaogang1960 · 发表于 2014-8-29 17:21

如果csv文件比较规范，可以考虑使用ADO法：

Sub ADO()
Dim Fso As Object, File As Object, cnn As Object, SQL$, f, p
Application.ScreenUpdating = False
p = ThisWorkbook.Path & ""
Set Fso = CreateObject("Scripting.FileSystemObject")
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;Extended Properties =Excel 8.0;Data Source=" & ThisWorkbook.FullName
For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
If File.Name Like "*.csv" Then
f = Replace(File, ".csv", ".xls")
If Fso.FileExists(f) Then Fso.DeleteFile (f)
SQL = "SELECT * INTO [Excel 8.0;Database=" & f & ";]." & Replace(File.Name, ".csv", "") & " FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=" & p & ";]." & File.Name
cnn.Execute SQL
End If
Next
Set File = Nothing
Set Fso = Nothing
cnn.Close
Set cnn = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

zhaogang1960 · 发表于 2014-8-29 17:25

请测试下面附件

leooja · 发表于 2014-8-29 20:13

上面版主大人，如果csv文件很大，超过xls格式最大的6万多行，想转为xlsx是否可以

leooja · 发表于 2014-8-29 20:19

zhaogang1960 发表于 2014-8-29 17:21
如果csv文件比较规范，可以考虑使用ADO法：

版主大人，不行，提示C:\Documents and Settings\Administrator\桌面\QQ截图20140829201609.jpg
另外如果我的csv文件很大，超过6万多行的xls文件限值，是否可转为xlsx格式
编码如何写呀！
望版主大人不吝赐教

zhaogang1960 · 发表于 2014-8-29 21:29

leooja 发表于 2014-8-29 20:19
版主大人，不行，提示
另外如果我的csv文件很大，超过6万多行的xls文件限值，是否可转为xlsx格式
编码如 ...

Sub ADO()
Dim Fso As Object, File As Object, cnn As Object, SQL$, f, p
Application.ScreenUpdating = False
p = ThisWorkbook.Path & ""
Set Fso = CreateObject("Scripting.FileSystemObject")
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;Extended Properties =Excel 12.0;Data Source=" & ThisWorkbook.FullName
For Each File In Fso.GetFolder(ThisWorkbook.Path).Files
If File.Name Like "*.csv" Then
f = Replace(File, ".csv", ".xlsx")
If Fso.FileExists(f) Then Fso.DeleteFile (f)
SQL = "SELECT * INTO [Excel 12.0 xml;Database=" & f & ";]." & Replace(File.Name, ".csv", "") & " FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=" & p & ";]." & File.Name
cnn.Execute SQL
End If
Next
Set File = Nothing
Set Fso = Nothing
cnn.Close
Set cnn = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

zhaogang1960 · 发表于 2014-8-29 21:31

请测试下面附件

leooja · 发表于 2014-8-30 10:56

zhaogang1960 发表于 2014-8-29 21:31
请测试下面附件

谢版主，可以转换，但csv文件有5行表头，转换后就没有了，就没法识别处理数据了，如何处理！
劳烦赐教，谢谢！

20140404_1.rar (4.29 KB, 下载次数: 79)

zhaogang1960 · 发表于 2014-8-30 12:03

leooja 发表于 2014-8-30 10:56
谢版主，可以转换，但csv文件有5行表头，转换后就没有了，就没法识别处理数据了，如何处理！
劳烦赐教， ...

该CSV文件不适合使用ADO，还是逐个打开吧

深圳创业圈 · 发表于 2015-5-6 10:25

我要转换多个文件夹下的csv成xls，这个脚本改怎么修改呢？求指点，谢谢大神

		自动登录	找回密码
密码			免费注册

[求助] 如何用vba批量将.csv文件转为.xls文件