【VBA】CSVファイルを高速に取得する方法

日々の業務で大量のデータを取り扱う際、手作業でのデータ入力は効率が悪く、ミスも増えます。この記事では、CSVファイルを高速に取り込むためのVBAマクロを作成し、労力を大幅に削減します。

サンプルコード

VBA

Option Explicit
Sub CSVFileImport()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.ScreenUpdating = False '画面更新を停止
    With CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\data.csv", 1)
        Do While Not .AtEndOfStream
            ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Split(.ReadLine(), ",") 'CSVの各行をExcelシートに書き込む
        Loop
    End With
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。