EXCEL VBAでﾌｫﾙﾀﾞに多数のCSVﾌｧｲﾙがあり新規のファイルへ1つのシートにまとめたい。

ﾌｫﾙﾀﾞ内に100ほどのCSVﾌｧｲルがあります。
書式は全部同じ。
新規のファイルに１つにまとめたい。

最初、ﾌｫﾙﾀﾞ内のﾌｧｲルに同じ処理をする方法で
ネットに載っているExcel VBAでうまくいきました。
ﾌｫﾙﾀﾞ内のﾌｧｲルを全て開き処理、その後１つにまとめる。
上記ですと、まとめるファイルの数が多いとﾌｧｲルを全部開くので
処理不可能になる。

やるたいこと：ﾌｫﾙﾀﾞ内の全てのCSVを1ファイルごと開いて処理後閉じて
新規のﾌｧｲルへまとめる方法を教えてください。
前処理のVBAでﾌｫﾙﾀﾞ内のEXCELﾌｧｲﾙをCSVに変換させています。
その後CSVﾌｧｲﾙを新規のﾌｧｲﾙにまとめたい。
下記の方法は、ﾌｫﾙﾀﾞ内のﾌｧｲﾙを全部開く方法です。
出来ずに本当に困っています。
ご教授よろしくお願いします。

Dim b As Workbook '集計するブック
Dim b1 As Workbook '集計先のブック

Dim d '集計するブック内のシートのデータ数
Dim d1 '集計先のシートのデータ数

Workbooks.Add
Set b1 = ActiveWorkbook

For Each b In Workbooks

If b.Name <> b1.Name Then
Dim l As Long
For l = 1 To b.Worksheets.Count

d = b.Worksheets(l).Range("a" & Rows.Count).End(xlUp).Row
d1 = b1.Worksheets(1).Range("a" & Rows.Count).End(xlUp).Row

b.Worksheets(l).Rows("1:" & d).Copy b1.Worksheets(1).Range("a" & d1 + 1)
Next
End If

Next

ActiveWorkbook.SaveAs "\C:処理済ﾌｫﾙﾀﾞ\処理.csv"

No.2 回答者： tatsu99 回答日時： 2018/09/07 20:10

直接の回答ではありませんが、バッチファイルでまとめる方法です。

以下のバッチファイルを作成します。（allcsv.batとします）
-------------------------------------------------
@echo OFF
rem ファイル名の一覧を取得
for %%X in (*.csv) do (
type %%X >> out.txt
)
---------------------------------
このallcsv.batを該当のフォルダ内に置いて起動します。
そうすると、全てのCSVファイルの内容を画面に表示しますので、それをリダイレクトします。
コマンドプロンプトで該当のフォルダ内に移動し
allcsv.bat > c:\xxx\all.csv
とするとc:\xxxにall.csvが作成されます。（all.csvは全てのCSVファイルをまとめたもの）
c:\xxxは任意のフォルダですが、該当のフォルダ以外を指定したほうが良いでしょう。

No.1 回答者： GOMΛFU 回答日時： 2018/09/06 19:08

dirとcopy +で結合するという手は?