CSVファイルをEXCELに取り込む

2

VBEditorを開いて以下のコードを貼り付けてください。

1Sub CSV取込()
2    Application.ScreenUpdating = False
3    
4    '画面更新を停止
5    Sheets("Sheet1").Range("A1").CurrentRegion.ClearContents
6        
7    With Sheets("Sheet1").QueryTables.Add(Connection:= _
8      "TEXT;" & ThisWorkbook.Path & "/cat_cafe.csv" _
9      , Destination:=Sheets("Sheet1").Range("A1"))
10      '列の幅を自動調整しない
11      .AdjustColumnWidth = False
12      '取り込み元ファイルの文字コードUTF-8
13      .TextFilePlatform = 65001
14      '取り込み開始行の設定
15      .TextFileStartRow = 1
16      'カンマ区切りでインポート
17      .TextFileCommaDelimiter = True
18      '文字列引用符。""で囲まれた物を文字列にする
19      .TextFileTextQualifier = xlTextQualifierDoubleQuote
20      'テキストファイルの各列に適用されるデータ型を指定する定数を配列形式で設定。
21      '1:標準（数値）、2:文字列、5:日付、9:削除（表示しない）、
22      .TextFileColumnDataTypes = Array(5, 2, 2, 2, 5)
23      '外部データ範囲（QueryTable）を更新。（上で作られたクエリはRefreshして初めて実行される。）
24      .Refresh BackgroundQuery:=False
25      'QueryTableを削除してただのデータにする。
26      .Delete
27    End With
28
29    ' 画面更新を再開
30    Application.ScreenUpdating = True
31
32End Sub
33