使用宏批量將多個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