回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -25,10 +25,23 @@
|
|
|
25
25
|
下記のコードで上記の出力になります。
|
|
26
26
|
|
|
27
27
|
```vba
|
|
28
|
-
Dim ExampleID as
|
|
28
|
+
Dim ExampleID as String
|
|
29
|
+
Dim objClass AS Object
|
|
30
|
+
For Each objClass In objIE.document.getElementsByClassName("ABC")
|
|
31
|
+
ExampleID = objClass.innerTExt
|
|
32
|
+
debug.print ExampleID
|
|
33
|
+
Next
|
|
34
|
+
```
|
|
35
|
+
もし、class="ABC" がテーブル以外の要素にもついていて、テーブル内の要素（td）のみに限定したいなら、
|
|
36
|
+
|
|
37
|
+
```vba
|
|
38
|
+
Dim ExampleID as String
|
|
29
39
|
Dim objtag AS Object
|
|
40
|
+
Dim objClass As Object
|
|
30
|
-
For Each objtag In objIE.document.
|
|
41
|
+
For Each objtag In objIE.document.getElementsByTagName("tr")
|
|
31
|
-
|
|
42
|
+
For Each objClass In objTag
|
|
32
|
-
|
|
43
|
+
ExampleID = objClass.innerTExt
|
|
44
|
+
debug.print ExampleID
|
|
45
|
+
Next
|
|
33
46
|
Next
|
|
34
47
|
```
|