回答編集履歴
3
OMainに修正
answer
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
lngRtnCode = GetClassName(hwnd, strClassBuff, Len(strClassBuff))
|
|
34
34
|
strClass = Left(strClassBuff, InStr(strClassBuff, vbNullChar) - 1)
|
|
35
|
-
If strClass = "
|
|
35
|
+
If strClass = "OMain" Then
|
|
36
36
|
If hwnd <> mMyhWnd Then
|
|
37
37
|
SendMessage hwnd, WM_CLOSE, 0, 0
|
|
38
38
|
End If
|
2
参考にしたUrlを追記
answer
CHANGED
|
@@ -49,6 +49,7 @@
|
|
|
49
49
|
End Sub
|
|
50
50
|
|
|
51
51
|
```
|
|
52
|
+
|
|
52
53
|
CloseOtherAccessを実行すると、自分以外のAccessにクローズのメッセージを送ります。
|
|
53
54
|
|
|
54
55
|
これだけじゃ、ダイアログが出て閉じない場合があると思いますが
|
|
@@ -58,4 +59,9 @@
|
|
|
58
59
|
|
|
59
60
|
ちなみに
|
|
60
61
|
一応動作確認はしましたが、LongPtrとLongの扱いの違いが良くわかってないので
|
|
61
|
-
その辺りが不適切だと思ってます…
|
|
62
|
+
その辺りが不適切だと思ってます…
|
|
63
|
+
|
|
64
|
+
（参考にしたHP）
|
|
65
|
+
[VBA 【コピペで使える！】別プロセスの特定Excelを一括終了する方法](https://mmm-program.com/vba-other-excel-close/)
|
|
66
|
+
|
|
67
|
+
[EnumWindowsを使って別プロセスのExcelを取得してみた](https://www.excel-chunchun.com/entry/enumwindows-excel-vba)
|
1
longptr と long の扱いがおかしいと思う旨を追記
answer
CHANGED
|
@@ -54,4 +54,8 @@
|
|
|
54
54
|
これだけじゃ、ダイアログが出て閉じない場合があると思いますが
|
|
55
55
|
ただ、それを無理やり閉じるのは、どうかと思います。
|
|
56
56
|
|
|
57
|
-
という訳で残ってるのがあるかを判定して、それに応じた処理をするのがいいのでしょうか。
|
|
57
|
+
という訳で残ってるのがあるかを判定して、それに応じた処理をするのがいいのでしょうか。
|
|
58
|
+
|
|
59
|
+
ちなみに
|
|
60
|
+
一応動作確認はしましたが、LongPtrとLongの扱いの違いが良くわかってないので
|
|
61
|
+
その辺りが不適切だと思ってます…
|