シートをマクロで大量コピーすると途中で止まる

質問

複数の別ブックを一度に一つにまとめるマクロを作りましたが、それが１００近くになると途中で止まってしまいます。
それと、コピーしてきたシートを最後尾に追加していきたいのに、前になってしまいます。
下記の所で質問していて、まだ締め切っていませんが、コードはその中に書いています。
http://okwave.jp/qa/q8739358.html

大変困っていますので、お教え下さい。

回答No.1

mt2008 · ベストアンサー

最後尾に追加する所は、取りあえずこうしてみては？

'コピー元のsheet1を集約用ブックにコピー
sWB.Worksheets("sheet1").Copy After:=dWB.Worksheets(Sheets.Count)
↓
sWB.Worksheets("sheet1").Copy After:=dWB.Worksheets(dWB.Sheets.Count)

止まる理由は「Sheet1」が無いブックが有るからではないですか？

お礼

家でやってみると、シートの順番が反対になる件については解決できました！
どうもありがとうございました。助かりました。

コピー元のデータもあまり大きくないもの（10文字程度）でやってみると150個でも行けました。
会社で扱うものもそう大きくなく、一つのシートに多くても200文字程度のデータです。
なぜそれが100程度で止まってしまうのか、それが疑問です。

補足

ありがとうございます。
来週会社に行ったら試してみますね。
「Sheet1」が無いブックが有るからでは？との事ですが、上手くいかなかったときに、90ファイル位ずつをそれぞれのフォルダを作って分割してやると上手くいきました。
ファイル数とシートの数も合っていました。
ですが、一度に数百、多いときは数千にも及ぶファイルの操作をそんなに細切れに作業するのは気が遠くなりそうです(泣)