teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

落ちるを書き換え、検証結果を追記しました。

2019/07/25 03:43

投稿

lovelywolf
lovelywolf

スコア8

title CHANGED
File without changes
body CHANGED
@@ -2,17 +2,27 @@
2
2
  上記マクロはシート上に配置したボタン(オブジェクト)で実行するようにしています。
3
3
 
4
4
  【症状】
5
- ボタンからマクロを実行するとExcelが落ちる
5
+ ボタンからマクロを実行するとExcelが勝手に終了してしまう
6
6
 
7
7
  【試したこと】
8
- 落ちる原因を探ろうとF8でステップ実行すると正常に終了する。
8
+ ・原因を探ろうとF8でステップ実行すると正常に終了する。
9
9
  ・F5で実行しても正常に終了する。
10
10
  ・手作業でのコピペでも問題なし。
11
- ・シート上のボタンを削除し、作り直しても落ちる
11
+ ・シート上のボタンを削除し、作り直してもExcelが勝手に終了してしまう
12
12
 
13
+ 【追記】
14
+ Workbooks(strFiles).Close False: DoEvents
15
+ をコメントアウトしてボタンから実行したところ、正常に終了。
16
+ 試しに1行上にブレイクポイントを設定して再実行し
13
- なぜ落ちてしまうか、落ちないようするにどうすれば良のかを
17
+ strFiles中身を確認。strFilesにはコピー元として開
14
- ご教示ただけると助かりす。よろくお願いします
18
+ ファイルのファイル名が入っていまし
15
19
 
20
+ 開いたファイルが開きっぱなしは困るので、閉じてから処理を終了したいです。
21
+ よろしくお願いいたします。
22
+
23
+ ~~なぜ落ちてしまうのか、落ちないようにするにはどうすれば良いのかを
24
+ ご教示いただけると助かります。よろしくお願いします。~~
25
+
16
26
  Win10、Excel2016、自ブック1,724KB、コピー元他ブック90KB
17
27
 
18
28