指定したテキストファイルから必要な情報だけを取り出すには？

質問

指定したテキストファイルから
必要な情報を取り出すにはどうすれば・・・？

エクセルのA1のセルに入力されたJOBコードと同じ
JOBコードを探して、それに対応した数量と色を
それぞれ　B1、C1のセルに表示させる場合に
どんなコードを使用すればいいのでしょうか？

　イベントはシート上にコマンドボタンを配置して行います。

ファイル名　BBB.TXT　　は下記の様な構成

"JOBコード"、"数量","色"
15428　,　25　,　"赤"
54824　,　120　,　"白"
21574　,　326　,　"紫"
22557　,　211　,　"黒"

どなたか教えて下さい。

回答No.2

mitarashi

#1さんの回答に対する速度的な優位性は不明です。知識としては知っていても、実際上使用した事はないもので。XL2000のコードです。データと、コードを記述したブックは同一フォルダにあるとします。
Microsoft ActiveX Data ObjectX.X Libraryに参照設定要です。参考URLをご覧下さい。それから、SQLの知識も必要ですね。
Sub test()
Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim jobcode As Long
Dim mySQL As String

Set CN = New ADODB.Connection
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\;" & _
"Extended Properties='Text;HDR=YES'"
jobcode = 54824
mySQL = "SELECT * FROM BBB.txt WHERE JOBコード=" & CStr(jobcode)
Set RS = CN.Execute(mySQL)
'Debug.Print RS.Fields(0).Name; RS.Fields(1).Name; RS.Fields(2).Name
Do Until RS.EOF
Debug.Print RS.Fields(0); RS.Fields(1); RS.Fields(2)
RS.MoveNext
Loop
Set RS = Nothing
Set CN = Nothing
End Sub

参考URL：

http://home.att.ne.jp/zeta/gen/excel/c04p47.htm

回答No.1

NOBNNN

BBB.TXT をＣＳＶファイルとして　Excel シートに読み込みます。

次に VlookUP関数　などで　検索結果を B1,C1　セルに表示させます。

以上です。

これをマクロ（ＶＢＡ）で作成すればできます。