たった1行で解決！ファイルを開くとExcel応答なし…の対処法！【VBA】

サラリー君

VBAの処理中にExcelがクラッシュするんだけど、どうやらファイルオープン処理で異常が発生しているみたい。

Climb

あー！私も昔、それで1日ハマって抜け出せなかった事があります。きっと同じ症状なので直ぐ解決しますよ！

どうもClimb(クライム)です。ファイル数が少ない時は処理できファイル数が多くなると処理できない。こんな現象に困っていませんか？

また、複数のExcelファイルに対して、繰返し処理(ループ処理)を実行すると、エラーが起きてしまうなど、「なんでココやねん！」みたいな事ってよくありますよね。

しかも、エラーと同時に、Excelが【応答なし】となりExcelを再起動・・・。まともにデバッグができません。応答なしになった瞬間、VBE(ソースコードを打つウィンドウ)も仲良く落ちる！

非常に困りますよね。私も同じ現象で1日無駄にした事があります。今回は、こんなファイルオープン処理で発生するエラーの対処方法をご紹介します。

ファイルを開くとExcel応答なし…

そもそも、このエラー、原因を特定するまでに時間がかかるんです(汗)まさか、Workbook.Openが原因でExcelマクロがクラッシュするとかアマチュアプログラマーには、想像もできないですよね。

ファイル数が少ない時は処理できて、ファイル数が多くなると処理できない

こういう現象が起きている場合は、本記事の対処法を試してみてください。

DoEvents()のたった一行で解決！

それでは、対処方法をご紹介します。

DoEvents()

↑コイツを使ってあげてください。

理由は記事後半で紹介します。理由はどうでも良くて、兎にも角にも解決したい！というせっかちなお方は、以下のようにコードを埋め込んでみてください。

まずはファイルを開くとき。

Sub workbookOpen(filePath as String)
　　
　　'ここ！！
 　　DoEvents

    'ファイルを開く
　　 workbooks.Open(filePath)

End Sub

次にファイルを閉じるとき。

Sub workbookClose(wb as workbook)

   'ここ！！
　　DoEvents

   'ファイルを閉じる
   wb.Close

end Sub

サラリー君

え。たったこれだけなの？

Climb

はい、たったこれだけです。

そうです、たったこれだけです。もはや、おまじないレベルですね。

OpenとCloseの直前に、DoEventsを入れる。これだけです。

ふざけるな！どんだけ簡単やねん！時間返せや～！と叫びたくなる気持ち凄くわかります。(苦笑)

※パソコンが使えるならブログで稼ごう。自宅で1日2時間のタイピング作業で月収10万円を目指す「完全無料オンライン副業講座」のご案内
>>PC1台で「舐めサラ」しよう！無料オンライン副業講座はこちら

DoEvents()とは？

DoEvents関数は・・・

という処理をしています。

※以下は、私の推測も含まれるため間違っている可能性があります。予めご了承ください。

ファイルを開く、(対象のファイル拡張子に紐づくアプリケーションを選択して
起動する）という処理は、OS(Windows)の仕事です。

「ファイルを開く」為に、DoEvents()でOSに制御を戻す事で処理が安定するんですね。ExcelマクロとOS(Windows)が次の様な対話をしていると考えると分かりやすいと思います。

太字の部分がDoEventsです。

Excelマクロがファイルを開いていると考えていた方、間違ってるわけではないですが、本質的にはニュアンスが異なるので認識を正してくださいね。

なんとなく、ファイル数が少ない時は処理でき、ファイル数が多くなると処理できない理由が分かりましたか？

どんどん、マクロを駆使して、本業を効率化し余った時間は有意義に使いましょう！

2020年6月11日Excelマクロでお小遣いを稼ぐ方法！VBAで月５万円以上の副収入を得よう

2020年8月27日Excelマクロの常識集！スキルアップの為に学ぶべき機能