質問編集履歴
5
前提の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,12 +1,20 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
+
指定のURLをChromeで開いて、「なんやかんや」して、終了のメッセージを出す。というマクロを作成しています。
|
|
4
|
+
「なんやかんや」は、問題なく実行できるため、後述のコードからは省いています。
|
|
5
|
+
|
|
6
|
+
問題は、マクロ終了時にChromeがアクティブなため、メッセージを出してもChromeの後ろに隠れてしまい終了したかどうかが見た目で分かりにくい点です。
|
|
7
|
+
|
|
3
|
-
理想としては、マクロを実行しているExcelがアクティブのまま、バックグラウンドでChromeを起動
|
|
8
|
+
理想としては、マクロを実行しているExcelがアクティブのまま、バックグラウンドでChromeを起動できれば、終了メッセージが最前面に出てくると思うのですが…。
|
|
4
|
-
最終的にマクロ
|
|
9
|
+
最終的にマクロ終了時に終了メッセージが出たことが分かればいいので、途中でChromeがアクティブになり、Excelに戻るなどの動作ができれば、それも有りと思っています。
|
|
10
|
+
|
|
5
11
|
開きたいリンクが、Chrome以外で正常に開けない不具合があるため、他のブラウザでの代替は考えていません。
|
|
12
|
+
また、Seleniumは別途ダウンロードが必要になるため導入は考えていません。
|
|
6
13
|
|
|
7
14
|
### 発生している問題
|
|
8
15
|
|
|
9
16
|
Runメソッドを使用してChromeを起動しようとしましたが、intWindowStyleの引数に、アクティブウィンドウを切り替えない値を使用しているにもかかわらず、chromeがアクティブで起動します。
|
|
17
|
+
マクロ終了時までChromeがアクティブなため、メッセージを出してもChromeの後ろに隠れてしまい終了したかどうかがわかりません。
|
|
10
18
|
|
|
11
19
|
### 該当のソースコード
|
|
12
20
|
|
4
ツールのバージョン追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -34,6 +34,7 @@
|
|
|
34
34
|
「すべてのプログラムがこの情報を使用するわけではない」との記述があるので、この方法は使えないのかもしれません…。
|
|
35
35
|
|
|
36
36
|
### 補足情報（FW/ツールのバージョンなど）
|
|
37
|
-
Excelバージョン
|
|
37
|
+
######Excelバージョン
|
|
38
|
+
Microsoft® Excel® for Microsoft 365 MSO (バージョン 2109 ビルド 16.0.14430.20314) 64 ビット
|
|
38
|
-
|
|
39
|
+
######Chromeバージョン
|
|
39
|
-
（
|
|
40
|
+
96.0.4664.110（Official Build） （64 ビット）
|
3
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA 非アクティブで
|
|
1
|
+
VBA Chromeを非アクティブで起動
|
body
CHANGED
|
@@ -1,7 +1,8 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
|
-
マクロを実行しているExcelのバックグラウンドでChromeを起動させたいです。
|
|
3
|
+
理想としては、マクロを実行しているExcelがアクティブのまま、バックグラウンドでChromeを起動させたいです。
|
|
4
|
+
最終的にマクロの処理完了時にExcelがアクティブであればいいので、途中でChromeがアクティブになるなどは問題ありません。
|
|
4
|
-
|
|
5
|
+
開きたいリンクが、Chrome以外で正常に開けない不具合があるため、他のブラウザでの代替は考えていません。
|
|
5
6
|
|
|
6
7
|
### 発生している問題
|
|
7
8
|
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,9 +22,10 @@
|
|
|
22
22
|
### 試したこと
|
|
23
23
|
|
|
24
24
|
以下の記述を処理前に挟んでみましたが、chromeには意味が無いようでした。
|
|
25
|
-
|
|
25
|
+
```visual-basic
|
|
26
26
|
Application.ScreenUpdating = False
|
|
27
27
|
Application.EnableEvents = False
|
|
28
|
+
```
|
|
28
29
|
|
|
29
30
|
[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))
|
|
30
31
|
引数の箇所は、こちらのリンクを参考に記述しました。
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -13,8 +13,8 @@
|
|
|
13
13
|
Sub ChromeOpne()
|
|
14
14
|
Dim HPurl As String
|
|
15
15
|
HPurl = "https://www.google.com/"
|
|
16
|
-
|
|
16
|
+
Call CreateObject("WScript.Shell").Run("chrome.exe -url" & HPurl, 4)
|
|
17
|
-
|
|
17
|
+
MsgBox ("処理が終了しました")
|
|
18
18
|
End Sub
|
|
19
19
|
```
|
|
20
20
|
実際は、変数にURLの書かれたセルの値を入れて開くというマクロですが、このコードだけで動くように書き換えています。
|
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
Application.ScreenUpdating = False
|
|
27
27
|
Application.EnableEvents = False
|
|
28
28
|
|
|
29
|
-
https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364421(v=msdn.10)
|
|
29
|
+
[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))
|
|
30
30
|
引数の箇所は、こちらのリンクを参考に記述しました。
|
|
31
31
|
引数は4の他、7も試しましたが変わりありませんでした。
|
|
32
32
|
「すべてのプログラムがこの情報を使用するわけではない」との記述があるので、この方法は使えないのかもしれません…。
|