Sub CopyCSVtoExcel() Dim csvFilePath As String Dim xlsxFilePath As String Dim ws As Worksheet ' CSVファイルのパスを指定 csvFilePath = "C:\フォルダのパス\ファイルA.csv" ' ファイルAのパスを指定 ' エクセル形式のファイル名を生成 xlsxFilePath = Replace(csvFilePath, ".csv", ".xlsx") ' 新しいワークブックを作成 Workbooks.Add ' データをワークシートにコピー Set ws = ThisWorkbook.…