ExcelVBA CSVファイルを読み込んでシートに展開(QueryTables.Add 関数使うバージョン)

Dim ws As Worksheet
Set ws = ActiveSheet ' CSV のデータを取り込むシート

Dim qt As QueryTable
Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\hogehoge.csv", Destination:=ws.Range("A2")) ' CSV を開く
With qt
 .AdjustColumnWidth = False 'セル幅自動調整を指定
.TextFilePlatform = 932          ' 文字コードを指定
.TextFileParseType = xlDelimited ' 区切り文字の形式
.TextFileCommaDelimiter = True   ' カンマ区切り
.RefreshStyle = xlOverwriteCells ' セルに上書き
.Refresh                         ' データを表示
.Delete                          ' CSV との接続を解除
End With

ネタ元

www.tipsfound.com
docs.microsoft.com