質問編集履歴
2
補足
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -6,6 +6,13 @@
|
|
|
6
6
|
|
|
7
7
|
詳細は下記「該当のソースコード」を参照していただきたいのですが、"CLOSE"以外の"END "と"SP "の場合は問題なく動作します。
|
|
8
8
|
"CLOSE"の場合だけオートメーションエラーが出てしまいます。
|
|
9
|
+
|
|
10
|
+
3/15 追記(補足)
|
|
11
|
+
ユーザーフォーム2内にコマンドボタンがあり、
|
|
12
|
+
Unload UserForm1
|
|
13
|
+
Unload UserForm4
|
|
14
|
+
の2行のみ記述している。
|
|
15
|
+
このコマンドボタンだと強制終了することもなく正しく動作する。
|
|
9
16
|
|
|
10
17
|
### 発生している問題・エラーメッセージ
|
|
11
18
|
「オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。」というエラーが出ます。
|
|
@@ -16,7 +23,7 @@
|
|
|
16
23
|
```vba
|
|
17
24
|
Private Sub CommandButton3_Click() 'フォーム1のボタン3
|
|
18
25
|
|
|
19
|
-
'作業者が選択されていれば
|
|
26
|
+
'作業者が選択されていればフォーム4開く
|
|
20
27
|
If UserForm1.TextBox1 = "" Then
|
|
21
28
|
|
|
22
29
|
r = MsgBox("作業者を選択してください。")
|
|
@@ -86,6 +93,10 @@
|
|
|
86
93
|
フォームを閉じた状態でEXCELが固まり、
|
|
87
94
|
強制終了するようになりました。
|
|
88
95
|
|
|
96
|
+
3/15 追記(補足)
|
|
97
|
+
・hide、show、unload以外のステーメント、プロシージャを削除
|
|
98
|
+
→再現(両フォームが閉じた後にEXCEL強制終了)
|
|
99
|
+
|
|
89
100
|
### 補足情報（FW/ツールのバージョンなど）
|
|
90
101
|
再現が確認できたPC
|
|
91
102
|
Windows PRO /EXCEL 2016
|
1
補足
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -76,6 +76,16 @@
|
|
|
76
76
|
(なぜ新しく作ったブックでは再現しないのかが理解できていません。
|
|
77
77
|
「そういうもの」と思った方がいいのでしょうか?
|
|
78
78
|
|
|
79
|
+
3/14 追記(補足)
|
|
80
|
+
・デバッグ画面でハイライトされる
|
|
81
|
+
UserForm4.Show
|
|
82
|
+
を
|
|
83
|
+
UserForm4.Show vbmodeless
|
|
84
|
+
に変更。
|
|
85
|
+
→フォームは両方閉じることに成功しましたが、
|
|
86
|
+
フォームを閉じた状態でEXCELが固まり、
|
|
87
|
+
強制終了するようになりました。
|
|
88
|
+
|
|
79
89
|
### 補足情報（FW/ツールのバージョンなど）
|
|
80
90
|
再現が確認できたPC
|
|
81
91
|
Windows PRO /EXCEL 2016
|