teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

記載を全面的に見直しました。

2018/08/26 01:46

投稿

TanakaHiroaki
TanakaHiroaki

スコア1065

answer CHANGED
@@ -1,8 +1,13 @@
1
- の一行書き換えてみると動作しないでしょうか。
1
+ 全面的に見直ました。For Next の入れ子で取得できないでしょうか。
2
2
 
3
3
  ```ここに言語を入力
4
+
5
+ Dim objTable1 As Object
4
- '正
6
+ Dim objTable2 As Object
7
+
5
- If InStr(objTable.getElementsByClassName.outerHTML, "specs-table") > 0 Then
8
+ For Each objTable1 In objIE.document.getElementsByTagName("table")
6
- '誤
7
- If InStr(objTable.document.getElementsByClassName, "specs-table") > 0 Then
9
+ For Each objTable2 In objTable1.getElementsByClassName("specs-table")
10
+ Debug.Print objTable2.outerHTML
11
+ Next objTable2
12
+ Next objTable1
8
13
  ```