【VBA】CSVファイルをシートへ読み込む

VBAコード

ここでは例として、
　・デスクトップ配下のファイル「sample.csv」を
　・シート「sample」へ
読み込みます。

Option Explicit

Sub sample()

    '読み込むCSVファイル
    Const CSV_FILE As String = "C:\Users\user\Desktop\sample.csv"
    
    With Worksheets("sample").QueryTables.Add(Connection:="TEXT;" + CSV_FILE, _
                                              Destination:=Range("B2"))
        '区切り文字に「カンマ区切り」を指定
        .TextFileCommaDelimiter = True
        '文字コードに「UTF-8」を指定
        .TextFilePlatform = 65001
        '読み込むファイルの1～3列目の形式に「文字列」を指定
        .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat)
        '読み込み実行
        .Refresh BackgroundQuery:=False
        '作成される「クエリと接続」を削除
        .Delete
    End With

End Sub

実行結果

CSVファイルをシートへ読み込むことが出来ました。

※列幅は自動で調整されます。