Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
ブック閉じた後、暫くして勝手にExcel起動してくる
投稿日時: 19/11/27 14:41:10
投稿者: Yoasn_3218

質問投稿 ”繰り返し名前をつけて保存が表示される”
でいくつか有用なコメントを頂きました力不足者です。
 
コメントを参考に、意図する処理になるよう試行錯誤した結果、何とか目的の動きをしてくれるようになった(?)と思ったのですが..
 
最後の処理でブックを閉じた後、何故かExcelがまた勝手に起動してくるようになってしまいました。
Auto.. BeforeSave ..の類のコードは書いていません。
 
以下、最後の部分抜粋ですが
 
 
End If
 
’Sheet"Template" のD4セル以外の入力C11〜15、E11をクリアする
 Sheets("Template").Range("C11").MergeArea.ClearContents
 Sheets("Template").Range("C12").MergeArea.ClearContents
 Sheets("Template").Range("C14").MergeArea.ClearContents
 Sheets("Template").Range("C15").MergeArea.ClearContents
 Sheets("Template").Range("E11").MergeArea.ClearContents
   
 ' ActiveWorkbookをマクロ実行ファイル名 ”テンプレート”の同名で上書き保存させる
 ActiveWorkbook.SaveAs Filename:="テンプレート.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  
Application.Quit
MsgBox "Excel終了"
ThisWorkbook.Close True
 
End Sub
 
 
のように書いています。
 
 
これ以外は意図したことが実現されています。
・実行後にテンプレート.xlsm を確認する→ D4だけ変更情報が残され、他はクリアされて保存
・入力結果をxlsxファイルとして別途保存させるというコードを前半に書いている→目的通り作成
 
勝手にExcel起動してしまうのはどこに原因、誤りがあるのでしょうか?
 

回答
投稿日時: 19/11/27 17:22:41
投稿者: よろずや

バックアップを保存した上で、
「何故かExcelがまた勝手に起動してくるようになってしまいました。」
に関係ない部分を少しずつ削除し、現象が発生する最小限のコードにして原因を特定しましょう。
 
 
単に、ファイルが破損しているだけという可能性もあります。
各モジュールをエクスポートし、
新規ブックにシートを作り直し各モジュールをインポートするだけで
直る可能性もあります。
 

投稿日時: 19/12/02 10:33:04
投稿者: Yoasn_3218

コメントありがとうございます。
 
Localのドライブにこのマクロを置いて実行すると問題なく終了するのですが
サーバー上に置いて実行すると何故か先の現象が起こりました。
 
アドバイス頂いた方法も試みましたが、何故か???です。
コード編集画面で”ファイルのエクスポート, インポート”で行いました。
 
 
ステップでどの辺りに問題が..と探ってみて、そんな筈はない...と思ったのですが
 
ThisWorkbook.Close True
 
を削除してみたら、サーバー上でも正常に終了しました。これは??
 
再々度、ファイル破損の疑いでじっくり検討します。
(いったんCloseとさせて下さい)