質問: Nothing End Sub ``` VBA ソースコード ``` ### 試したこと ここに問題に対して試したことを記載してください。 ### 補足情報(FW/ツールのバージョンなど) Office365 ここにより詳細な情報を記載してください。
回答: 質問2について回答します。 Excelを終了させる処理を追加してはどうでしょうか。 ``` appbook.Close objCreate.Quit 'Excelを終了 Set appbook = Nothing ```