質問編集履歴
5
前提の追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,11 +2,25 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
|
5
|
+
指定のURLをChromeで開いて、「なんやかんや」して、終了のメッセージを出す。というマクロを作成しています。
|
6
6
|
|
7
|
+
「なんやかんや」は、問題なく実行できるため、後述のコードからは省いています。
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
問題は、マクロ終了時にChromeがアクティブなため、メッセージを出してもChromeの後ろに隠れてしまい終了したかどうかが見た目で分かりにくい点です。
|
12
|
+
|
13
|
+
|
14
|
+
|
15
|
+
理想としては、マクロを実行しているExcelがアクティブのまま、バックグラウンドでChromeを起動できれば、終了メッセージが最前面に出てくると思うのですが…。
|
16
|
+
|
7
|
-
最終的にマクロ
|
17
|
+
最終的にマクロ終了時に終了メッセージが出たことが分かればいいので、途中でChromeがアクティブになり、Excelに戻るなどの動作ができれば、それも有りと思っています。
|
18
|
+
|
19
|
+
|
8
20
|
|
9
21
|
開きたいリンクが、Chrome以外で正常に開けない不具合があるため、他のブラウザでの代替は考えていません。
|
22
|
+
|
23
|
+
また、Seleniumは別途ダウンロードが必要になるため導入は考えていません。
|
10
24
|
|
11
25
|
|
12
26
|
|
@@ -15,6 +29,8 @@
|
|
15
29
|
|
16
30
|
|
17
31
|
Runメソッドを使用してChromeを起動しようとしましたが、intWindowStyleの引数に、アクティブウィンドウを切り替えない値を使用しているにもかかわらず、chromeがアクティブで起動します。
|
32
|
+
|
33
|
+
マクロ終了時までChromeがアクティブなため、メッセージを出してもChromeの後ろに隠れてしまい終了したかどうかがわかりません。
|
18
34
|
|
19
35
|
|
20
36
|
|
4
ツールのバージョン追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -70,8 +70,10 @@
|
|
70
70
|
|
71
71
|
### 補足情報(FW/ツールのバージョンなど)
|
72
72
|
|
73
|
-
Excelバージョン
|
73
|
+
######Excelバージョン
|
74
74
|
|
75
|
-
Microsoft 365
|
75
|
+
Microsoft® Excel® for Microsoft 365 MSO (バージョン 2109 ビルド 16.0.14430.20314) 64 ビット
|
76
76
|
|
77
|
+
######Chromeバージョン
|
78
|
+
|
77
|
-
(
|
79
|
+
96.0.4664.110(Official Build) (64 ビット)
|
3
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VBA 非アクティブで
|
1
|
+
VBA Chromeを非アクティブで起動
|
test
CHANGED
@@ -2,9 +2,11 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
マクロを実行しているExcelのバックグラウンドでChromeを起動させたいです。
|
5
|
+
理想としては、マクロを実行しているExcelがアクティブのまま、バックグラウンドでChromeを起動させたいです。
|
6
6
|
|
7
|
+
最終的にマクロの処理完了時にExcelがアクティブであればいいので、途中でChromeがアクティブになるなどは問題ありません。
|
8
|
+
|
7
|
-
|
9
|
+
開きたいリンクが、Chrome以外で正常に開けない不具合があるため、他のブラウザでの代替は考えていません。
|
8
10
|
|
9
11
|
|
10
12
|
|
2
test
CHANGED
File without changes
|
test
CHANGED
@@ -46,11 +46,13 @@
|
|
46
46
|
|
47
47
|
以下の記述を処理前に挟んでみましたが、chromeには意味が無いようでした。
|
48
48
|
|
49
|
-
|
49
|
+
```visual-basic
|
50
50
|
|
51
51
|
Application.ScreenUpdating = False
|
52
52
|
|
53
53
|
Application.EnableEvents = False
|
54
|
+
|
55
|
+
```
|
54
56
|
|
55
57
|
|
56
58
|
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -28,9 +28,9 @@
|
|
28
28
|
|
29
29
|
HPurl = "https://www.google.com/"
|
30
30
|
|
31
|
-
|
31
|
+
Call CreateObject("WScript.Shell").Run("chrome.exe -url" & HPurl, 4)
|
32
32
|
|
33
|
-
|
33
|
+
MsgBox ("処理が終了しました")
|
34
34
|
|
35
35
|
End Sub
|
36
36
|
|
@@ -54,7 +54,7 @@
|
|
54
54
|
|
55
55
|
|
56
56
|
|
57
|
-
https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364421(v=msdn.10)
|
57
|
+
[https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364421(v=msdn.10)](https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364421(v=msdn.10))
|
58
58
|
|
59
59
|
引数の箇所は、こちらのリンクを参考に記述しました。
|
60
60
|
|