Sub CSVファイルを開かずに指定列のみを抽出取得する()
    
    '抽出対象ファイルを指定。例：Cドライブ下にtestフォルダを作りsample.csvという名前で置く場合
    CSVファイル = "C:\test\sample.csv"
    
    With ActiveSheet.QueryTables.Add("TEXT;" & CSVファイル, Range("A1")) 'A1に貼付
    
        '抽出したい形式を列順に指定する。スキップしたい列で9を入力する
        .TextFileColumnDataTypes = Array(1, 2, 9, 9, 2) '既定値:1 文字列:2 スキップ:9
        
        '文字コードというのを選択。[932]で文字化けするなら[65001]で試す
        .TextFilePlatform = 932             'UTF-8:65001 Shift-JIS:932 UTF-16:1200
        .RefreshStyle = xlOverwriteCells    'セルに上書きする
        .TextFileParseType = xlDelimited    '区切り文字の形式を指定
        .TextFileCommaDelimiter = True      'カンマ区切りを指定
        .Refresh BackgroundQuery:=False     'データを表示する
        .Delete                             '接続を削除する
    End With
    
End Sub