質問編集履歴
1
エラーメッセージを追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -70,4 +70,30 @@
|
|
|
70
70
|
としたところ、実行時エラー438と出てしまいます。
|
|
71
71
|
何故でしょうか？
|
|
72
72
|
ご教授いただけましたら幸いです。
|
|
73
|
-
お願いいたします。
|
|
73
|
+
お願いいたします。
|
|
74
|
+
---追記---
|
|
75
|
+
変更後のコードになります。
|
|
76
|
+
```VBA
|
|
77
|
+
|
|
78
|
+
Dim tr As Object
|
|
79
|
+
Dim tm As Object
|
|
80
|
+
For Each tr In objIE.getElementsByClassName("eee")
|
|
81
|
+
|
|
82
|
+
For Each tm In tr.getElementsByTagName("td")
|
|
83
|
+
|
|
84
|
+
If tm.innerText = "最低" Then
|
|
85
|
+
|
|
86
|
+
MsgBox tm.innerText
|
|
87
|
+
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
End If
|
|
91
|
+
|
|
92
|
+
Next tm
|
|
93
|
+
|
|
94
|
+
Next tr
|
|
95
|
+
```
|
|
96
|
+
エラー内容
|
|
97
|
+
実行時エラー438
|
|
98
|
+
このオブジェクトは、このプロパティまたはメソッドをサポートしていません。
|
|
99
|
+
でした。
|