<csv>複数条件で検索・抽出し、別シートに順次保存したい

質問

・exel 2003
過去事例を参考にvbaでやってみているのですが、
勉強しはじめの自分に荷が重いようで、相談いたします。

日付　時刻　 緯度　 経度　回数
0531 1731 141.4 35.6 2
0531 2027 146.6 38.7 1
0531 2343 145.5 36.4 1
・　　・　　　・　　・　　・
・　 ・　　　・　　・　　・
上のような中身のcsvファイルがたくさん（0531.csv　etc）に入っているフォルダがあります。その中のファイルをまずひとつ開き、ある条件で検索、抽出します。その後、その結果を別ブック（Book1）のシートにコピーし、csvファイルを閉じます。また残りのcsvファイルについても開いていき同様の処理を行いたいのですが、処理結果を先ほどのBook1のシートに上から順にどんどん付加していきたいと考えています。こういった処理はどのような流れで書いたらよろしいのでしょうか、具体的にお教え願えないでしょうか。

・ある条件とは上表を例にすると、緯度が141.4より大きく、146.6より小さいもの、かつ経度が35.6より大きく、38.7より小さいものといった条件です（ここでは３行目のデータが抽出されるはず）。
・配列で読み込んでsplitすればいいと思いましたが、抽出後は文字列でしか表示されない。どうにか数字で読み込ませることができないのか。
・また処理ファイルがたくさんあるため、別Bookが65536行を超えたときにどうしたらいいのかも悩んでいます。

回答No.1

imogasi

あるフォルダ内のCSVファイルをすべて捕まえるコード（FsoのFor EachかDir()の結果がなし、など）
もし他種のファイルが混じっているときは、CSVファイルを選別（拡張子で）
CSVファイルを開き・読むコード（Open　LineInputなど）
レコードの終わりの捕まえ方・クローズ（閉じるのコード（Eof(1)）
レコードをカンマでSplit（VBのSplit関数）
条件をかけて、該当を探すコード（IfステートメントとAnd条件）
ブックを開き、シートに書き込むコード。
エクセルのシートの書き込む位置（行）はポインタ的変数で＋１して順次下行を指すようにする。
ブックの保存とクロースと終了（SaveAs,Close,Quit)
ーー
レコードを配列に入れないほうが良い（必要ない）。
＞別ブック（Book1）のシートにコピー
コピーではなく値の代入でよい。
＞どうにか数字で読み込ませることができないのか
CSVファイルはテキストのファイル。Split後エクセルのセルの値に代入するとき数値に変換すればよい。
＝＝＝＝＝
こんな課題はWEBにコードがある。ここへ質問する前にGoogleででも調べまくること。
もっと質問がブレークダウンした細部についてのものになるはず。

補足

すばやい回答ありがとうございます。
＞もっと質問がブレークダウンした細部についてのものになるはず
確かに細部の具体的な質問になると思います。すいませんでした。いま回答の流れを参考にやってみています。ifステートメント部分検索部分でうまく検索できないのと、数値変換がうまくいきません。もう少しがんばってみます。