【ExcelVBA】複数のCSVファイルを一括でExcelファイルに変換する

ねぇもりさん、システムから出力したCSVファイルが大量にあるんだ。

このCSVファイル、まとめてExcelに変換したいなぁ～？

もり

それは大変だ～。一括で変換するマクロを作っちゃおう

CSV形式のファイルを加工するために、Excel形式に変換して作業をすることってありますよね。

１つ２つならまだしも・・・たくさんあったらイヤですよね。マクロを紹介します。

複数のCSVファイルを、一括でExcel形式に変換できるマクロを紹介します。

元データのCSVファイルと同じ階層に、Excelファイルを作成します。

Contents

CSVファイルをExcelに変換するマクロ

CSVファイルをExcelに変換するマクロ

参照設定

Microsoft Scripting Runtimeを使用します。

コード

標準モジュールに貼り付けて使用してください。

Sub main()

    Application.ScreenUpdating = False
    
    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename _
            ("CSVファイル,*.csv*", MultiSelect:=True)
    
    If Not IsArray(OpenFileName) Then
        MsgBox "キャンセルしました。": Exit Sub
    End If
  
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    
    Dim n As Long '選択したファイル数、処理を繰り返す
    For n = LBound(OpenFileName) To UBound(OpenFileName)
    
        Dim wb As Workbook
        Set wb = Workbooks.Open(OpenFileName(n))
        
        Dim strBaseName As String
        strBaseName = fso.GetBaseName(wb.Name) '拡張子を除くファイル名を取得
        
        '同じファイル名で同じ階層にExcel形式で保存する
        wb.SaveAs _
        Filename:=wb.Path & "\" & strBaseName, FileFormat:=xlWorkbookDefault

        wb.Close SaveChanges:=False

        Set wb = Nothing 'いったん解放
    
    Next n

    Application.ScreenUpdating = True

    MsgBox "終了しました。"

End Sub