tableの取得について 削除
| Message#3 2017年8月21日(月)14時13分 From: NMC |
| 変更後はページ内の全テーブルを取得し(どういう意味？） 最後から3つ目のテーブル内から（何を？）取得したい ？部分は不明ですが、以下は参考になりますか？ Dim objtable As Object, Myrow As Object Dim i As Long, j As Long i = objIE.document.getElementsByTagName("table").Length - 1 If i - 3 >= 0 Then Set objtable = objIE.document.getElementsByTagName("table")(i - 3) 'Debug.Print objtable.Rows.Length Else Exit Sub End If For i = 0 To objtable.Rows.Length - 1 Set Myrow = objtable.Rows(i) Debug.Print "------" For j = 0 To Myrow.Cells.Length - 1 If Myrow.Cells(j).innerText <> "" Then Debug.Print i + 1 & "行" & j + 1 & "列の要素は " & Myrow.Cells(j).innerText End If Next j Next i |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
