【ExcelVBA】複数のCSVファイルを一括でExcelファイルに変換する｜もりさんのプログラミング手帳

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 =

[kabacsharp]

“まとめてExcelに変換できる方法ないかなぁ～？ もりさん それは大変だ～。一括で変換するマクロを作っちゃおう CSV形式のファイルを加工するために、Excel形式に変換して作業をすることってありますよね。”