回答編集履歴
3
OMainに修正
test
CHANGED
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
strClass = Left(strClassBuff, InStr(strClassBuff, vbNullChar) - 1)
|
|
68
68
|
|
|
69
|
-
If strClass = "O
|
|
69
|
+
If strClass = "OMain" Then
|
|
70
70
|
|
|
71
71
|
If hwnd <> mMyhWnd Then
|
|
72
72
|
|
2
参考にしたUrlを追記
test
CHANGED
|
@@ -100,6 +100,8 @@
|
|
|
100
100
|
|
|
101
101
|
```
|
|
102
102
|
|
|
103
|
+
|
|
104
|
+
|
|
103
105
|
CloseOtherAccessを実行すると、自分以外のAccessにクローズのメッセージを送ります。
|
|
104
106
|
|
|
105
107
|
|
|
@@ -119,3 +121,13 @@
|
|
|
119
121
|
一応動作確認はしましたが、LongPtrとLongの扱いの違いが良くわかってないので
|
|
120
122
|
|
|
121
123
|
その辺りが不適切だと思ってます…
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
（参考にしたHP）
|
|
128
|
+
|
|
129
|
+
[VBA 【コピペで使える！】別プロセスの特定Excelを一括終了する方法](https://mmm-program.com/vba-other-excel-close/)
|
|
130
|
+
|
|
131
|
+
|
|
132
|
+
|
|
133
|
+
[EnumWindowsを使って別プロセスのExcelを取得してみた](https://www.excel-chunchun.com/entry/enumwindows-excel-vba)
|
1
longptr と long の扱いがおかしいと思う旨を追記
test
CHANGED
|
@@ -111,3 +111,11 @@
|
|
|
111
111
|
|
|
112
112
|
|
|
113
113
|
という訳で残ってるのがあるかを判定して、それに応じた処理をするのがいいのでしょうか。
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
ちなみに
|
|
118
|
+
|
|
119
|
+
一応動作確認はしましたが、LongPtrとLongの扱いの違いが良くわかってないので
|
|
120
|
+
|
|
121
|
+
その辺りが不適切だと思ってます…
|