ＣＳＶファイルの指定列だけを読み込んでＥＸＣＥＬに表示したい

質問

ＥＸＣＥＬのＶＢＡの .ActiveSheet.QueryTables.Add メソッドを利用する方法で、
（不可能ならば別な方法でもお願いします。）
ＣＳＶファイルを読み取って、シートに書き込みたいと思ったのですが、
その際、ＣＳＶファイル全体ではなくて、特定番目の列だけを読み取って、書き込むことは出来ないでしょうか。
その特定の列の指定を複数にすることも出来ますでしょうか。
もし複数でも可能でしたら、ＥＸＣＥＬに書き込むときに、
一列目、二列目、と詰めて書くのではなく、間に空列をはさんだりして、
バラバラに好きな位置の列に、読み取ったそれぞれの列を、書き込むことは出来るでしょうか。

回答No.3

TTak

accessdb_userさんこんにちは。
データソースに新規にCSVのソースを追加することによって可能です。例えば、マイドキュメントにCSVファイルがあり、データベースの先頭をセルA1に置くとして、次のようになるはずです。

ActiveSheet.QueryTables.Add(Connection:=Array(Array("ODBC;DefaultDir=C:\My Documents;Driver={Driver da Microsoft para arquivos texto (*.txt; *.csv)};DriverId=27;Extensions=txt,csv,tab,a"), Array("sc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;")),　Destination:=Range("A1"))

手動で言えば、外部データの取り込みで、新規データソースを作成し、アクセスするデータベースの種類に対応するドライバに
Driver da Microsoft para arquivos texto (*.txt; *.csv)
を選択するということです。これによって、クエリーが使えますから、
> 特定番目の列だけを読み取って、書き込むことは出来
ます。また、MSクエリーの他の機能も使えます。複数の列の取り込みも可能です。
取り込む列の選択は、上記AddメソッドのCommandTextプロパティの値として、Array関数に格納して使います。

.CommandText = Array("SELECT XXX.AAA, XXX.BBB& vbCrLf & "FROM XXX.csv XXX" )

のようになります。XXXはファイル名、AAA,BBBはフィールド名です。
クエリーを使った場合、空白の列を入れることはできないようです。データ取り込み後にInsertメソッドやCopy、Pasteメソッドで列挿入や入れ替えをすれば良いと思われます。
一度、自動記録すると解りやすいと思います。

回答No.2

imogasi

テストデータとして下記を作りました。
ファイル名をaa1.csvで保存しました。
5,大島,大阪,商業,a1
23,古河,豊橋,商業,b1
34,恩田,岐阜,普通,d1
45,寒川,福島,国際,c1
67,桐井,新潟,工業,c2
13,青井,久留米,普通,a2
そしてＶＢＥのＭｏｄｕｌｅ１に
Sub test01()
i = 1
Open "aa1.csv" For Input As #1
While Not EOF(1)
　Input #1, a, b, c, d, e
　' MsgBox a & "," & b & "," & c & "," & d & "," & e
　Worksheets("sheet1").Cells(i, 1) = b
　Worksheets("sheet1").Cells(i, 2) = d
　i = i + 1
Wend
Close #1
End Sub
テスト済み。項目数（フィールド数）だけa,b,c,・・・を設定してください。そして何番目の項目かを選んでください。このテストでは２、４番の２つを選択した。
その項目数だけWorksheets("sheet1").Cells(i, ｘｘ) = ｘを増やしてください。ｘｘはＡ列を１としてＢ列を２とする列順序数です。ｘは取り出してシート列にセットする変数名（項目データ）です。

お礼

ご解答ありがとうございました。
とても明快でわかりやすいソースとご説明で、よくわかりました。
プログラムするときに参考にさせていただきます。
でも、セルに一つずつ書き込むのでは、処理が遅くなってしまうようなのです。
一気に書き込めればいいのですが・・・

回答No.1

taka2456

データが以下のようになってるとします
名前,生年月日,性別
mike,19920503,male
tiger,19950304,male
linda,19790403,female

Open "CSVファイルの場所" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, tmp
hairetu = Split(tmp, ",")　　 'カンマで区切られたものをばらして
　　　　　　　　　　　　　　　　　'配列にいれます
'１行目を読んだ状態では
　　　　　　　　　　　　　　　　　’hairetu(0)="名前",
　　　　　　　　　　　　　　　　　’hairetu(1)="生年月日",
　　　　　　　　　　　　　　　　　’hairetu(2)="性別"となってます

Cells(i, 4) = hairetu(2) ’配列３番目（性別）をD列に出力します
　　Cells(i,6)=hairetu(0) '配列１番目（名前）をG列に出力します
i = i + 1

Loop
Close #1

こんな回答しかできませんでした
きっともっといいやり方があるとおもいますので他の方の意見を参考に
してください

お礼

セルに一つずつ書いていくと、なぜかやたら処理に時間がかかってしまうようなので、
ＣＳＶを一気に読み込みたいと思っていたんです。しかし、列を分けて読み込むのは難しいでしょうか。
でも、ファイル入出力に慣れていなかったので、ためになりました。ありがとうございました。