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

chzn4

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

系统提示宏无法启用，好奇怪啊。。我没有禁用宏啊

paladinhch

Sub 批量转换格式()
   
    Application.ScreenUpdating = False
   
    Dim FilePath, MyFile, iPath As String
    iPath = ThisWorkbook.Path
    MyFile = Dir(iPath & "\*.CSV")
   
    On Error Resume Next

    Do While MyFile <> ""

        Workbooks.Open (iPath & "\" & MyFile)
        MyFile = ActiveWorkbook.Name
        MyFile = Replace(MyFile, ".csv", ".xlsx", 1, -1, 1)
        FilePath = iPath & "\" & MyFile
               
        ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
               
        Workbooks(MyFile).Close True
        
        MyFile = Dir
        
    Loop
   
    Application.ScreenUpdating = True
        

    ThisWorkbook.Close False
   
End Sub


以上代码，可用（已测）

naurun

paladinhch 发表于 2016-8-10 13:02
Sub 批量转换格式()
   
    Application.ScreenUpdating = False

加一句删除原文件啊，怎么加？？？？？？？

cooper19

我也想实现这种功能，但是没成功，不知道大侠们有没有好方法。

chengshanming

不错，路过，顶一下！

clyfd

naurun 发表于 2016-10-24 09:28
加一句删除原文件啊，怎么加？？？？？？？

Kill ThisWorkbook.Path & "\*.csv"

kszcs

paladinhch 发表于 2016-8-10 13:02
Sub 批量转换格式()
   
    Application.ScreenUpdating = False

能转换为2003或2007的工作表格式吗。

lsc900707

kszcs 发表于 2017-1-27 14:57
能转换为2003或2007的工作表格式吗。

数据文件规范的话，不妨参考赵版的ADO法：
如何用vba批量将.csv文件转为.xls文件
http://club.excelhome.net/thread-1148780-1-1.html
(出处: ExcelHome技术论坛)

ibolee

谢谢老板，666

junemar

Thank you........