質問編集履歴
4
操作手順の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -76,6 +76,10 @@
|
|
|
76
76
|
|
|
77
77
|
|
|
78
78
|
|
|
79
|
+
具体的には、こちらのサイト「https://www.books-sanseido.co.jp/」 のメニュー「本を探す」にて、検索BOXに「9784295000396」を入力後、検索BOXの隣のボタンをクリックする操作を行い、これにより追加されるタブのオブジェクトを取得しようとしています。
|
|
80
|
+
|
|
81
|
+
|
|
82
|
+
|
|
79
83
|
環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
|
|
80
84
|
|
|
81
85
|
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
3
コードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,26 @@
|
|
|
11
11
|
コードの一部を以下に載せます。
|
|
12
12
|
|
|
13
13
|
```
|
|
14
|
+
|
|
15
|
+
' 検索ボタンをクリック
|
|
16
|
+
|
|
17
|
+
objIE.document.getElementById("btnSearch").Click
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
' 新規タブのIEオブジェクトを取得
|
|
22
|
+
|
|
23
|
+
Call getIE("XXX", wkObjIE) '"XXX"はタイトル（固定値）が入ります。wkObjIEはアウトプットです
|
|
24
|
+
|
|
25
|
+
|
|
26
|
+
|
|
27
|
+
（中略）
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
Public Function getIE(title As String, objIE As InternetExplorer)
|
|
32
|
+
|
|
33
|
+
|
|
14
34
|
|
|
15
35
|
Set sh = CreateObject("Shell.Application")
|
|
16
36
|
|
|
@@ -46,6 +66,12 @@
|
|
|
46
66
|
|
|
47
67
|
Next
|
|
48
68
|
|
|
69
|
+
getIE = 1
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
End Function
|
|
74
|
+
|
|
49
75
|
```
|
|
50
76
|
|
|
51
77
|
|
2
Excel,IEのバージョン情報を捕捉
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -50,13 +50,15 @@
|
|
|
50
50
|
|
|
51
51
|
|
|
52
52
|
|
|
53
|
-
環境は WindowsServer 2012R2、Excel2016
|
|
53
|
+
環境は WindowsServer 2012R2、Excel2016、IEのバージョンは11です。
|
|
54
54
|
|
|
55
55
|
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
59
|
一方で、別PCのWindows7の環境では、同一プログラムで問題なく新規タブのIEオブジェクトを取得できます。
|
|
60
|
+
|
|
61
|
+
Excel、IEのバージョンは上記と同じです。
|
|
60
62
|
|
|
61
63
|
|
|
62
64
|
|
1
若干の補足
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,7 +52,9 @@
|
|
|
52
52
|
|
|
53
53
|
環境は WindowsServer 2012R2、Excel2016 です。
|
|
54
54
|
|
|
55
|
-
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、新規タブが見つかりません。
|
|
55
|
+
ウォッチウィンドウで上記コードのsh.Windowsを確認しても、元ページタブはあるのですが、新規タブが見つかりません。
|
|
56
|
+
|
|
57
|
+
|
|
56
58
|
|
|
57
59
|
一方で、別PCのWindows7の環境では、同一プログラムで問題なく新規タブのIEオブジェクトを取得できます。
|
|
58
60
|
|