質問編集履歴
1
エラーメッセージを追加しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -143,3 +143,55 @@
|
|
|
143
143
|
ご教授いただけましたら幸いです。
|
|
144
144
|
|
|
145
145
|
お願いいたします。
|
|
146
|
+
|
|
147
|
+
---追記---
|
|
148
|
+
|
|
149
|
+
変更後のコードになります。
|
|
150
|
+
|
|
151
|
+
```VBA
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
Dim tr As Object
|
|
156
|
+
|
|
157
|
+
Dim tm As Object
|
|
158
|
+
|
|
159
|
+
For Each tr In objIE.getElementsByClassName("eee")
|
|
160
|
+
|
|
161
|
+
|
|
162
|
+
|
|
163
|
+
For Each tm In tr.getElementsByTagName("td")
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
If tm.innerText = "最低" Then
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
MsgBox tm.innerText
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
|
|
176
|
+
|
|
177
|
+
|
|
178
|
+
|
|
179
|
+
End If
|
|
180
|
+
|
|
181
|
+
|
|
182
|
+
|
|
183
|
+
Next tm
|
|
184
|
+
|
|
185
|
+
|
|
186
|
+
|
|
187
|
+
Next tr
|
|
188
|
+
|
|
189
|
+
```
|
|
190
|
+
|
|
191
|
+
エラー内容
|
|
192
|
+
|
|
193
|
+
実行時エラー438
|
|
194
|
+
|
|
195
|
+
このオブジェクトは、このプロパティまたはメソッドをサポートしていません。
|
|
196
|
+
|
|
197
|
+
でした。
|