
以下のようなCSVファイルを、


以下のようにシートへ読み込むことが出来ます!


CSVファイルに「001」とある場合、
シート上も「001」となるようにします!
※0が消えて「1」とならないようにします。

文字コードを指定することで、
・UTF-8
・Shift_JIS
のファイルを読み込めます!
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ファイルをシートへ読み込むことが出来ました。

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