getElementsByClassNameについて 削除
| Message#4 2017年6月3日(土)21時21分 From: uiita |
| ありがとうございます。 試しに適当なclassを入れて下記の通りやってみたのですが、取得されませんでした。 当方windows10、IE11なんですが、環境的な問題なんでしょうか Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://site1.sbisec.co.jp/ETGate/" '//ここにwaitサブルーチン For Each obj In objIE.document.getElementsByTagName("tr") If obj.getAttribute("class") = "md-addclass" Then Debug.Print obj.innerText End If Next obj End Sub > 追記です。 > 特定のclassだけ抜き出したい場合は、以下のようにすれば大丈夫です。 > > For Each obj In IE.document.getElementsByTagName("tr") > If obj.getAttribute("class") = "***" Then > Debug.Print obj.innerText > End If > Next obj > > ※***→クラス名 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
