批量转换一个文件夹里的csv格式为xls或xlsx格式

TomingTang

各位大神，在实际工作中遇到需要把很多个csv格式另存为xls或xlsx格式的。我知道可以打开csv文件后可以选择另存为xls或xlsx格式，但是这种方法工作效率很低，现在就想知道能否通过VBA代码批量进行操作。要求：把一个文件夹里面所有csv格式的文档全部转换为xls或xlsx格式，文件名字就是原来csv文件的名字。求帮助，谢谢。
批量转换csv为xlsx - 副本.zip (2.24 KB, 下载次数: 742)

2014-4-2 12:27 上传

点击文件名下载附件

cbtaja

1. Sub 转换()
   
2. Application.ScreenUpdating = False
   
3. pth = ThisWorkbook.Path & ""
   
4. flnm = Dir(pth & "*.csv")
   
5. Do While Len(flnm) > 0
   
6.     With Workbooks.Open(pth & flnm, ReadOnly:=True)
   
7.         .SaveAs Replace(flnm, ".csv", ""), IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal)
   
8.         .Close
   
9.     End With
   
10.     flnm = Dir
    
11. Loop
    
12. End Sub

复制代码

TomingTang

cbtaja 发表于 2014-4-2 13:32

你好，非常感谢上面的大神，代码可以运行。
另外我从网上找了另外代码，测试可以成功转换为xls ，但是当我改一下代码，想转换为xlsx时却出错。请问为什么。谢谢。
附代码：

1. Sub 格式转换()
   
2.     Dim FilePath, MyFile, iPath As String
   
3.     iPath = ThisWorkbook.Path
   
4.     MyFile = Dir(iPath & "\*.CSV")
   
5.     If MyFile <> "" Then
   
6.         Do
   
7.             On Error Resume Next
   
8.             If MyFile = ThisWorkbook.Name Then MyFile = Dir
   
9.             Workbooks.Open (iPath & "" & MyFile)
   
10.             MyFile = Replace(MyFile, ".csv", ".xls")
    
11.             Name = "" & MyFile
    
12.             FilePath = iPath & Name
    
13.             Application.ScreenUpdating = False
    
14.             ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _
    
15.                                                                   xlNormal, CreateBackup:=False
    
16.             Workbooks(MyFile).Close True
    
17.             Application.ScreenUpdating = True
    
18.             MyFile = Dir
    
19.         Loop While MyFile <> ""
    
20.     End If
    
21. End Sub

复制代码

cbtaja

你代码中的FileFormat直接是xlNormal，
而我代码中则是根据EXCEL的版本选择的：IIf(Application.Version >= 12, xlWorkbookDefault, xlWorkbookNormal)

cloudragon

cbtaja 发表于 2014-4-2 13:32

转换后的文件，如何保存在源文件位置呢？

紫苏211

为什么我用了这个代码 之后文件格式由csv 变成xls ,但是里面的内容还是乱码？

TomingTang

紫苏211 发表于 2015-4-21 14:33
为什么我用了这个代码 之后文件格式由csv 变成xls ,但是里面的内容还是乱码？

“但是里面的内容还是乱码？”——还是乱码是什么意思，是你的表一开始就是乱码的？   如果一开始就是乱码的，那转换不会让其变成是正常的。
其他原因请上传附件看看

深圳创业圈

这个脚步怎么使用？求指点

毛毛毛毛毛小希

请问楼主，为什么我用不起代码呢，使用之后，文件格式没有改变，还是CSV。

TomingTang

毛毛毛毛毛小希 发表于 2015-5-30 10:32
请问楼主，为什么我用不起代码呢，使用之后，文件格式没有改变，还是CSV。

有bug，暂时都没有解决，你去论坛找找其他的。不好意思