SQLのSelect文をfor nextしたい

質問

Select from where文で
A1～A〇（〇は可変）セルに記入されているものを検索対象にしたく、
構文を無視して希望したい完成形を大雑把に書くと

aaa = Range("A1").End(xlDown).Row

SQL =
Select *
from TBL
　for i = 1 to aaa
where Fld = cells(i,1)
next i

こうなるのですが、当然動くはずもなく。
ORやINでも予め検索する個数が固定されていないとダメなような気がするのですが
どのように文を書くとよろしいのでしょうか？

回答No.7

piroin654

ExcelでADOを使ってデータを加工するものと
思っていました。途中で何だかはずしているのかな、
という感じがしていました。失礼しました。

補足に関しては、Accessのデータを取り出す
SQL文が、

　　SELECT * FROM テーブル名

となっていて、「*」を使うとすべてのフィールドを
対象とします。したがって取り出すフィールド名を
「*」のかわりに羅列すればいいのですが、一方で
「年齢」のフィールドレコードの検索対象にしていますから
「年齢」のフィールドを含めてデータを取り出す
必要があります。したがって、コードの中で「年齢」の
フィールドデータをはじきながらSheetに格納ということで、

　　　　If Worksheets("Sheet2").Cells(i, 8).Value = rs!年齢 Then
　　　　　　For m = 1 To k
　　　　　　　　If Not rs.Fields(m - 1).Name = "年齢" Then
　　　　　　　　　　　Worksheets("Sheet1").Cells(m, n) = rs.Fields(m - 1)
　　　　　　　　End If
　　　　　　Next m
　　　　　　n = n + 1
　　　　End If

のように、

　　　　If Not rs.Fields(m - 1).Name = "年齢" Then

　　　　End If

で、
　　　　Worksheets("Sheet1").Cells(m, n) = rs.Fields(m - 1)
を挟み込みます。これで「年齢」というフィールドのデータは
Sheetには格納されません。

なお、新しく立てられた質問、
http://okwave.jp/qa/q8792437.html
に関しては、また違った方法を取るようになります。
たぶん、出来るとは思いますが、確認してみます。
ひとまずは、上記のことを確認してみてください。