回答編集履歴
4
コード訂正
test
CHANGED
@@ -20,7 +20,7 @@
|
|
20
20
|
|
21
21
|
|
22
22
|
|
23
|
-
For Each el In col
|
23
|
+
For Each el In coltd
|
24
24
|
|
25
25
|
Debug.Print el.innerText
|
26
26
|
|
3
コードの間違いの修正
test
CHANGED
@@ -10,7 +10,7 @@
|
|
10
10
|
|
11
11
|
```
|
12
12
|
|
13
|
-
Dim col
|
13
|
+
Dim coltd As IHTMLElementCollection
|
14
14
|
|
15
15
|
Dim el As IHTMLElement
|
16
16
|
|
2
書式の修正
test
CHANGED
@@ -1,4 +1,4 @@
|
|
1
|
-
> 「id="tables"の要素を取得して、その中のテーブル要素のtdの値を取得する」
|
1
|
+
> **「id="tables"の要素を取得して、その中のテーブル要素のtdの値を取得する」**
|
2
2
|
|
3
3
|
> というのが目的の処理です。
|
4
4
|
|
1
書式の修正
test
CHANGED
@@ -7,6 +7,8 @@
|
|
7
7
|
下記のコードでどうでしょう。
|
8
8
|
|
9
9
|
|
10
|
+
|
11
|
+
```
|
10
12
|
|
11
13
|
Dim colImg As IHTMLElementCollection
|
12
14
|
|
@@ -20,20 +22,16 @@
|
|
20
22
|
|
21
23
|
For Each el In colTR
|
22
24
|
|
23
|
-
|
24
|
-
|
25
25
|
Debug.Print el.innerText
|
26
|
-
|
27
|
-
|
28
26
|
|
29
27
|
Next el
|
30
28
|
|
31
|
-
|
29
|
+
```
|
32
30
|
|
33
31
|
|
34
32
|
|
35
33
|
参照設定
|
36
34
|
|
37
|
-
Microsoft HTML Object Library
|
35
|
+
``Microsoft HTML Object Library``
|
38
36
|
|
39
|
-
Microsoft Internet Controls
|
37
|
+
``Microsoft Internet Controls``
|