Excel2013（マクロ）で「Microsoft Excelは動作を停止しました」が表示されます。

Question

いつもお世話になっております。

環境情報

Windows 10(64bit)

Office2013 Pro Plus

現在Excelマクロを作っているのですが、マクロの処理終了後に「Microsoft Excelは動作を停止しました」という表示されます。

マクロの概要は、

「CSVデータを読み込み、Excel（マクロ）のシートに貼り付け、書式設定を行い、シートをコピーしExcel（xlms）で保存し、

Excel（マクロ）は保存せずに閉じる」

＜ソース＞

    '■高速化対応（設定）

    '再計算を手動に変更

    Application.Calculation = xlCalculationManual

    '待ち状態・砂時計型のマウスポインタ

    Application.Cursor = xlWait

    '描画停止

    Application.ScreenUpdating = False

    '■編集処理（★ここで「Sheets("台帳")」の可能しています）

    editRtn

    '■ ファイル作成（Excel形式）

    Sheets("台帳").Copy

    ActiveWorkbook.SaveAs Filename:=MakeFilePath & "" & MakeFile, FileFormat:=xlWorkbookDefault, CreateBackup:=False

    Windows(MakeFile).Activate

    ActiveWindow.Close SaveChanges:=False

    '(存在チェック)一時ファイルの為→存在していれば削除

    If Dir(TmpFilePath & "" & TmpFile) <> "" Then

        Kill (TmpFilePath & "" & TmpFile)

        On Error GoTo 0

    End If

    '■高速化対応（解除）

    '再計算を自動に変更

     Application.Calculation = xlCalculationAutomatic

    '標準のマウスポインタ

     Application.Cursor = xlDefault

    '描画再開

     Application.ScreenUpdating = True

    '■ 完了メッセージ出力（★このメッセージは正常に出力されます）

    MsgBox _

    MakeFile & " を作成しました。" & vbCrLf & inLast & "行" & vbCrLf, vbInformation, wツール名

    '■ ツール終了（★下記の処理終了後に「Microsoft Excelは動作を停止しました」が表示されます）

    Windows(myBook).Activate

    ActiveWindow.Close SaveChanges:=False

今まで動いているマクロ参考にしていたので原因がよくわかりません。

また、他のパソコンでこのマクロを実行しても同じ事象になります。

お手数をおかけしますが、対処方法などございましたらご教授ください。

Answer 1

n.hojo さん、アドバイスありがとうございます。

dos_shimano さん、こんにちは。

修復後の様子はいかがでしょうか。

もし問題が再発してしまう場合は、一度 Office の削除・再インストールも試してみてはいかがでしょう。

※ コントロール パネルからの通常の削除だと情報が一部残ってトラブルも引き継いでしまう可能性があるので、「こちらのページ」の「オプション 2 - Easy Fix ツールを使用して、Office を完全にアンインストールする」の手順での削除・再インストールを試してみてください。

また、バックグラウンド動作する常駐ソフトなどが干渉しないように、PC を「クリーン ブート」起動した状態での動作も確認してみると良いかも知れません。

Answer 2

いったん既存のシートやソースを別の新規のExcelファイルにコピーして試してみました・・・

一度うまくいったので、類似する別のマクロも新規のExcelファイルにコピーして行っていましたが、同様の事象が発生しました。

再度先ほどうまくいった方のマクロをテストしてみたら、再び同様の事象が発せしました。

念のためにインストールされているOfficeアプリケーションの修復を実施を行っています。

原因の特定ができておらず、何か原因でしょうか？

Answer 3

お返事ありがとうございます。

全てのイベントは正常処理されています。（たぶんですが・・・）

'■ ツール終了

    Windows(myBook).Activate

    ActiveWindow.Close SaveChanges:=False

myBookには実施しているマクロのファイル名が設定されています。

（すみません、全てのソース記載していません）

この処理も恐らく正常処理されており、処理中ではなく処理後に「Microsoft Excelは動作を停止しました」が表示されいるように思います。

上記の処理をコメントアウトして、手動で同様操作するとメッセージは出力されませんでしたが・・・今までの流用ロジックで特に変更してないので問題ないと思ってます。

別の記述方法で試してみましたが同じでした。

色々なところをコメントアウトしてみましたが事象が変わらないので、Excelファイル（マクロ）その物が何か破損（？）しているのではと思います。

原因がよくわからないので、いったん既存のシートやソースを別の新規のExcelファイルにコピーして試してみます。

Answer 4

どのイベントでどの処理を行っているのかが

提示された情報では把握できません。

それとも、

>「CSVデータを読み込み、Excel（マクロ）のシートに貼り付け、

>書式設定を行い、

>シートをコピーし

>Excel（xlms）で保存し、

>Excel（マクロ）は保存せずに閉じる」

これらの処理が、

Thisworkbookオブジェクトの

Workbook_Open　イベントで

そのすべてを行っていますか？

>On Error GoTo 0

この記述があることから、

どこかにエラー処理（エラーが起きた時に行う処理）

が施されている可能性を疑います。

もし施されているなら、

それらを一時的にコメントアウトすることで

デバックのできるエラーメッセージに変わりませんでしょうか？

Answer 5

追記

マクロの処理結果としては、思い通りの結果ができているのですが・・・

「Microsoft Excelは動作を停止しました」と表示されExcelが再起動されてしまいます。

早く仕上げないといけないので、どなたかお力になってください！