またもやノンプロ研に感謝する出来事が!

目下開発用マシンであるWin7パソコンで、
フォルダの中にある250個くらいのデータファイルを
それぞれ開いて転記処理するマクロを作っていました。

データファイルをDirで取得して、Do Loop で処理します。
データファイルをOpen し、WorkbookオブジェクトWB1にSetします。
内容を転記して、WB1.Close して、Loop繰り返し。

このサイクルが170くらいで止まる現象に悩んでいました。
別のWin10マシンでは全部処理が終わるので、マシン依存なのか?と思いつつ、
ノンプロ研のスレッドに質問してみました。

HiroCom777さんの、「ループ内に  DoEventsを一行足すと上手くいくかも!!
という声にしたがいまして、記述してみたら、なんとまぁWin7マシンでも動きました。

今のところ、私にとっておまじないの存在であるDoEventsですが、調べてみると、OSに制御を戻す命令のようですね。VBAさんが我に返るのでしょうか??ここのところ要勉強です。
処理速度が若干遅くなった気もしますが、処理が止まるよりは良いです。

もつべきものはコミュニティ!感謝!