質問編集履歴
4
操作手順の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -37,6 +37,8 @@
|
|
|
37
37
|
End Function
|
|
38
38
|
```
|
|
39
39
|
|
|
40
|
+
具体的には、こちらのサイト「https://www.books-sanseido.co.jp/」 のメニュー「本を探す」にて、検索BOXに「9784295000396」を入力後、検索BOXの隣のボタンをクリックする操作を行い、これにより追加されるタブのオブジェクトを取得しようとしています。
|
|
41
|
+
|
|
40
42
|
環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
|
|
41
43
|
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
|
42
44
|
|
3
コードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,6 +5,16 @@
|
|
|
5
5
|
この新しいタブのIEオブジェクトを取得したいのですが、できません。
|
|
6
6
|
コードの一部を以下に載せます。
|
|
7
7
|
```
|
|
8
|
+
' 検索ボタンをクリック
|
|
9
|
+
objIE.document.getElementById("btnSearch").Click
|
|
10
|
+
|
|
11
|
+
' 新規タブのIEオブジェクトを取得
|
|
12
|
+
Call getIE("XXX", wkObjIE) '"XXX"はタイトル（固定値）が入ります。wkObjIEはアウトプットです
|
|
13
|
+
|
|
14
|
+
（中略）
|
|
15
|
+
|
|
16
|
+
Public Function getIE(title As String, objIE As InternetExplorer)
|
|
17
|
+
|
|
8
18
|
Set sh = CreateObject("Shell.Application")
|
|
9
19
|
|
|
10
20
|
'ShellWindowから1つずつ取得して処理
|
|
@@ -22,6 +32,9 @@
|
|
|
22
32
|
Exit For
|
|
23
33
|
End If
|
|
24
34
|
Next
|
|
35
|
+
getIE = 1
|
|
36
|
+
|
|
37
|
+
End Function
|
|
25
38
|
```
|
|
26
39
|
|
|
27
40
|
環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
|
2
Excel,IEのバージョン情報を捕捉
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,10 +24,11 @@
|
|
|
24
24
|
Next
|
|
25
25
|
```
|
|
26
26
|
|
|
27
|
-
環境は WindowsServer 2012R2、Excel2016
|
|
27
|
+
環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
|
|
28
28
|
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
|
29
29
|
|
|
30
30
|
一方で、別PCのWindows7の環境では、同一プログラムで問題なく新規タブのIEオブジェクトを取得できます。
|
|
31
|
+
Excel、IEのバージョンは上記と同じです。
|
|
31
32
|
|
|
32
33
|
試しに、デバッグ実行中に手動で元のページのタブを閉じて、新しいタブだけを残した状態にしたのですが、相変わらずsh.Windowsに当該タブが見つかりません。
|
|
33
34
|
|
1
若干の補足
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,7 +25,8 @@
|
|
|
25
25
|
```
|
|
26
26
|
|
|
27
27
|
環境は WindowsServer 2012R2、Excel2016 です。
|
|
28
|
-
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、新規タブが見つかりません。
|
|
28
|
+
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
|
29
|
+
|
|
29
30
|
一方で、別PCのWindows7の環境では、同一プログラムで問題なく新規タブのIEオブジェクトを取得できます。
|
|
30
31
|
|
|
31
32
|
試しに、デバッグ実行中に手動で元のページのタブを閉じて、新しいタブだけを残した状態にしたのですが、相変わらずsh.Windowsに当該タブが見つかりません。
|