Excel VBA – CSVファイルをxlsxファイルに変換
CSVファイルをxlsxファイルに変換するサンプルコードです。
CSVファイルをエクセルで開いて、
xlsxファイルで保存するだけの簡単なマクロです。
変換前のCSVファイルを削除するようにしています。
Sub main()
Dim targetBook As Workbook
'csvファイルをエクセルで開く
Set targetBook = Workbooks.Open("C:\temp\aaa.csv")
'xlsx形式で保存
targetBook.SaveAs Filename:="C:\temp\aaa.xlsx", _
FileFormat:=xlOpenXMLWorkbook
targetBook.Close
'CSVファイルの削除
Kill "C:\temp\02_解凍後\aaa.csv"
End Sub
VBA初心者の方は以下の本から勉強してみてください。
─────────────── ★
中小企業診断士 かとう
専門は、IT活用による業務改善です。
★───────────────
