質問編集履歴
2
リンクをクリックするサブルーチンのコードを書いてませんでした。すいません。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -112,4 +112,52 @@
|
|
|
112
112
|
|
|
113
113
|
|
|
114
114
|
|
|
115
|
+
'③「linkClick_self」指定した要素のリンクをクリックし、同じページで開くサブルーチン
|
|
116
|
+
|
|
117
|
+
Sub linkClick_self(objIE As InternetExplorer, _
|
|
118
|
+
|
|
119
|
+
keywords As String, _
|
|
120
|
+
|
|
121
|
+
Optional ieTarget As String = "_self")
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
'_blank 新しいウィンドウで表示する
|
|
126
|
+
|
|
127
|
+
'_self 現在のウィンドウで表示する
|
|
128
|
+
|
|
129
|
+
'_parent 親フレームで表示する
|
|
130
|
+
|
|
131
|
+
'_top フレームの分割を解除してウィンドウ全体に表示する
|
|
132
|
+
|
|
133
|
+
|
|
134
|
+
|
|
135
|
+
|
|
136
|
+
|
|
137
|
+
Dim objLink As Object
|
|
138
|
+
|
|
139
|
+
|
|
140
|
+
|
|
141
|
+
For Each objLink In objIE.Document.Links
|
|
142
|
+
|
|
143
|
+
If InStr(objLink.outerHTML, keywords) > 0 Then
|
|
144
|
+
|
|
145
|
+
objLink.target = ieTarget
|
|
146
|
+
|
|
147
|
+
objLink.Click
|
|
148
|
+
|
|
149
|
+
Call ieCheck(objIE)
|
|
150
|
+
|
|
151
|
+
Exit For
|
|
152
|
+
|
|
153
|
+
End If
|
|
154
|
+
|
|
155
|
+
Next
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
End Sub
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
115
163
|
```
|
1
題名をわかりやすいように変更した
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
一度STOPを入れないとクリックできないのはなぜ？
|
|
1
|
+
VBAで、一度STOPを入れないとホームページをクリックできないのはなぜ？
|
test
CHANGED
|
File without changes
|