CSVファイルをExcelファイルに変換

CSVファイルを読み取り専用で開いて、Excelファイルに変換して保存します。
ファイル名はCSVファイルを使用して、拡張子を変更します。
保存する際、エクセルフォーマットに変換しないと拡張子がExcelのCSVファイルになるので、注意してください。

以下の関数を使用していますので、リンクから関数をコピーします。
拡張子を変更したファイル名を作成する

Sub CsvToExcel(filename As String)
	Dim wb As Workbook
	Dim new_name As String

	' CSV ファイルを開く
	Set wb = Workbooks.Open(filename, ReadOnly:=True)
	' 同じファイル名で拡張子を変更したファイルに保存する
	new_name = FilenameNewExtension(filename, "xlsx")
	' Excel フォーマットで保存する
	wb.SaveAs new_name, xlWorkbookDefault
	' CSVファイルは保存せずに閉じる
	wb.Close SaveChanges:=False
End Sub

【参考】
保存するフォーマット(今回は、xlWorkbookDefault)は、以下のサイトを参考にして、選択することもできます。
https://learn.microsoft.com/ja-jp/office/vba/api/excel.xlfileformat