回答編集履歴

4

コード訂正

2017/07/11 16:03

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -20,7 +20,7 @@
20
20
 
21
21
 
22
22
 
23
- For Each el In colTR
23
+ For Each el In coltd
24
24
 
25
25
  Debug.Print el.innerText
26
26
 

3

コードの間違いの修正

2017/07/11 16:03

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  ```
12
12
 
13
- Dim colImg As IHTMLElementCollection
13
+ Dim coltd As IHTMLElementCollection
14
14
 
15
15
  Dim el As IHTMLElement
16
16
 

2

書式の修正

2017/07/11 15:48

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -1,4 +1,4 @@
1
- > 「id="tables"の要素を取得して、その中のテーブル要素のtdの値を取得する」
1
+ > **「id="tables"の要素を取得して、その中のテーブル要素のtdの値を取得する」**
2
2
 
3
3
  > というのが目的の処理です。
4
4
 

1

書式の修正

2017/07/10 16:34

投稿

hatena19
hatena19

スコア33620

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``