指定エクセルで同一階層の複数CSVを一括で開きたい

質問

毎日同じ構成（行・列）のデータをCSVで吐き出し、
月別フォルダに格納し、特定のエクセルで集計しています。（月別ファイルを置いています）
関数を使って集計したいため、そのエクセル内にCSVを一括でシートとして取り込みたいと考えています。

色々調べた結果、
http://park7.wakwak.com/~efc21/cgi-bin/exqaloung …
にある、
下から2番目の「だるまさん」と言う方の回答が利用できそうだということが分かりました。

カンマ区切り？は既に解除された形のCSVでダウンロードされるため
何度もエラーが出ていたので
この文章の、

V = Split(VV(0), ",")
CC = UBound(V) + 1
Sht.Range("A:A").Resize(, CC).NumberFormat = "@"

の部分と、

V = Split(VV(i), ",")
Sht.Cells(i + 1, 1).Resize(, CC).Value = V

を削除したら読込みは成功しました。

ただ、
(1)新しいブックを自動で新規作成し、その中で複数展開してしまう
(2)データがいつまでも読み込み中です、となり、データが表示されません。。。。
これはなぜでしょうか？

回答No.1

imogasi

この程度？の質問で解答が付かないのは
＞「色々調べた結果」のあとのサイトが読者には開けなくて、読者には何を言って居るかわからないからではないか。
またこの質問はエクセルVBAの質問か？表題ででも速いうちにそれを明記すべきでしょう。
それに
＞同じ構成とは
例を挙げること。行数まで同じなのか。
＞特定のエクセル
「特定」のとはなに？あるエクセルシートのこと？「特定の」という言葉をやたらに使わないこと。意味ありげで惑わす。
＞集計しています
この質問も集計が目的でしょう。集計が今も既に出来ているのですか？それならなぜ質問するの？
＞関数を使って集計したいため、そのエクセル内にCSVを一括でシートとして取り込みたいと考えています。
VBAならVBAだけで集計も可能だと思うが。関数を使うために、１シートに１月分のデータが隙間なく集ってほしいということでしょう？。
＞カンマ区切り？は既に解除された形のCSVでダウンロードされるため
なぜ？マークが付いているのか、特殊性があるのか？
＞「解除された形」とはなに？我流の言葉ではない？
＞何度もエラーが出ていたので
は何のことを言っているのか？
＞を削除したら読込みは成功しました
Splitして同行セルに各項目の値をセットする、などは必要と思うが。
＞ただ、
(1)新しいブックを自動で新規作成し、その中で複数展開してしまう
(2)データがいつまでも読み込み中です、となり、データが表示されません
銅修正したのかもわからず、これだけでは何のことか原因は判らない。
ーー
そもそもCSVファイルはエクセルにそのまま読み込めるのではないですか。
ただしフォルダには３０近くの日々のCSVファイルがある場合操作で読み込むのは面倒だとは思う。
フォルダに別別のファイルになっているCSVファイルを１つのシートにまとめるのは、それなりに経験が要り、それだけで１つの質問事項かと思う。
CSVファイルの形のままで１ヶ月をまとめる手もあるかも。
＝＝＝
以上を参考にして、質問文を再度読み直し、質問文を読者にも判るように、改めて、再度質問したら。