使用宏批量将多个csv文件转成excel文件

在一个压缩文件中有100多个csv文件，要求要将此100多个csv文件转成excel文件，名字命名不变，有三种方式：

1. 傻不拉几的复制粘贴法

2. 一个一个打开csv文件，另存为xls文件，工作量也很大

3. 用word中自带的宏编程
① 新建一个excel
② 点击工具栏（tools）-》宏（macro）-》visual basic editor -》view-》code 复制下列代码，加粗的部分为需要转格式的文件的位置
③ 点击菜单栏的run，即可运行
经测试，该段代码使用的是word2010版，03版得不适用

若WPS，选择开发工具---VB编辑器---ThisWorkBook---粘贴代码，工具置灰为没有安装VBA，网上下载安装即可。

使用时，打开这个表格文件，只需替换目标目录运行这个宏即可。
Sub 宏1()
'
' 宏1 宏
'

　 'ChDir "C:\"
    Dim sDir As String
    Dim curdir As String
   

    '目标目录

    curdir = "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:=curdir & "\" & temp & ".xls", _
            FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Close
       sDir = Dir
    Wend
   
End Sub

转载于:https://www.cnblogs.com/testlife007/p/5076699.html