エクセルVBAで複数CSVを抽出、ブックへの出力

質問

エクセルVBAで複数のCSVファイルからファイル名と
任意のセル8箇所を自作した計算シートに抽出。
別ブックにCSVファイル名 計算結果4種類を出力する。

というvbaを作りたいのですがどうすればよいでしょうか？
CSVファイルが1700ほどあり、大変困っています。
申し訳ありませんがご教授願います。
ーーーーーーーーーーーーーーーーーーーーーーーーーーー
詳細
CSV読み込みセル８箇所：B2、D2、F2～P2
自作計算シートへの貼り付け箇所：G３～G1０
計算結果セル抽出箇所：C8～F4

出力の理想系は

CSVファイル名、計算結果１、２、３、 ４の順で

file01 ○○ ○○ ○○ ○○
file02 ○○ ○○ ○○ ○○
・・・
・・

のようになれば大変嬉しいです。

お力をお貸しください
よろしくお願いいたします。

回答No.3

imogasi

したいことだけ、それも不完全に書いているだけで、コードを回答者に書いてください、と言わんばかりの質問。丸投げは禁止。
ーー
必要な（小分けした）処理単位に、文章でまず分割列挙してみること。（この分類するにもコンピュタ処理経験は要るが、できる範囲からやってみないと）
＞1700ほどあり
これを捉えるのは、どういう特徴で捉えるのか。１つのフォルダなどにまとまって入っていて、対象外のＣＳＶファイルが混じっていないとか。（質問にこれを書いてないのは、経験不足）
そのフォルダの中にエクセルファイルが混じっている程度なら、拡張子ｘｌｓのファイルを飛ばしＣＳＶだけ選ぶのは簡単。
だいたい１７００個（１ファイルの行でなく）ものＣＳＶを作ることそのものが、あとの処理のことを考えてない。いったん、１７００ＣＳＶ－－＞１ＣＳＶにまとめて、それからまとまった１ファイルで考える手もある。まさか１７００ＣＳＶの列構成（フォ－マット）が別々ってこと無いでしょうね。
（１）１フォルダに有るＣＳＶファイルを１つつ、かつ、もらさず２度読みせず読む方法（コード）Ｆｏｒ　Ｅａｃｈとか繰り返しで処理になろう。
Ｇｏｏｇｌｅで照会すれば、この例がたくさん例が出るのだ。知らないのかな。
もし他種類のファイルがあれば処理を飛ばす方法
（２）読んだＣＳＶのファイル名を捉える方法ーー＞そしてエクセル・シートに書き出す方法。
（３）１つ（レコード）のＣＳＶファイルを読む方法
質問者はエクセルにＣＳＶファイルを１つ読み込んで８項目を判別すると考えているようだが、ＣＳＶファイルを配列変数に読み込み
そこで８項目を選んだほうが良い。項目に分割するにはＳｐｌｉｔ関数という便利な関数がある。
（３）読んだとき列（フィールド・項目）データに分割して捉える方法（そうしないと８箇所が判別できない）前述のＳｐｌｉｔ関数で配列に収納するとインデックス番号で指定。
（４）列を判別ーー＞必要なデータ項目を捉える。－－＞エクセルのシートに書き出す方法
８項目はどう捉えるか質問に書いてない。質問がすきだらけ。
＞任意のセル8箇所、なんて、任意とはおかしいのでは。必ずランダムにしろルールが有るはず。軽々しく「任意」を使わないこと。
＞Ａ任意のセル8箇所を自作した計算シートに抽出。
Ｂ別ブックにCSVファイル名 4種類を出力する
（抽出とはどういう条件で？計算結果とはどういう計算？）
は２処理有るようだが、質問者のレベルではＡとＢは別けて独立させてコードを考えたら（実行は２回）どうかな。
現在の質問者には、まだそこまで行ってないと思う。
ＷＥＢで上記を１つづつ調べるか、改めて細分して具体的に絞って
別質問にしたらどうです。
ーーー
Ｇｏｏｇｌｅで照会をお勧め用語を挙げておく
VBA　フォルダ　ファイル　捉える
VBA　Ｓｐｌｉｔ関数
ＣＳＶファイル　読み込み　VBA
http://www.k1simplify.com/vba/tipsleaf/leaf291.htmlほか
VBA　フォルダ　拡張子　選択
などで調べまくること

回答No.2

merlionXX

サンプルコードを書いてみようと思いましたが、情報不足や理解できない点が多すぎて回答できません。

> CSVファイルが1700
対象はすべて一つのフォルダーにはいっているのですか？
また、その場合、対象以外のCSVファイルが混在したりしませんか？

> CSV読み込みセル８箇所：B2、D2、F2～P2
セルが13個ですが？Σ（￣ロ￣lll)

> 自作計算シートへの貼り付け箇所：G３～G1０
縦に変換しても８個しかはいらないので、上記F2～P2は、～K2までの誤りですか？
また、CSVファイルが複数なら、常にG３～G1０に貼り付けたら上書きされてしまいますよね？
どうするのでしょう？

> 計算結果セル抽出箇所：C8～F4
他に説明がないので意味が不明です。ヽ(´▽｀)/
それに、C8～F4？普通はC4からF８と書きませんか？

> 出力の理想系は
> CSVファイル名、計算結果１、２、３、 ４の順で
> file01 ○○ ○○ ○○ ○○

これが、計算結果セル抽出箇所の例だとしたら、ひょっとしてC8～F8、あるいはC4～F4の誤り？

「質問」の理想系は、必要事項を洩れなく正確に書いていただきたいのですが・・・・
o(＾-＾)o

回答No.1

n-jun

まず、
・新規Ｂｏｏｋを作成
・１つのＣＳＶファイル開く
・計算用ブックに貼付ける
・計算結果を新規Ｂｏｏｋに貼付ける
などをマクロの自動記録でやってみるとか。

そうでなければ、ある範囲のセルをどのセルに貼付け、計算結果のセル範囲を
どのような順序で転記していくのか不明な気がしますけど。

例：
＞CSV読み込みセル８箇所：B2、D2、F2～P2
B2、D2、F2～P2はセル数１３個ですし。
（５個の行き先又は除外条件が不明）