DOMを変数で渡してinnerTextを得る方法 削除
Message#12 2015年7月17日(金)08時45分 From: VBAマスター |
サブルーチンが間違っていますね。 For Each myDoc In objDoc With myDoc If InStr(objDoc.outerHTML, keywords) > 0 Then Select Case valueType Case "innerHTML" tagValue = .innerHTML Case "innerText" tagValue = .innerText Case "outerHTML" tagValue = .outerHTML Case "outerText" tagValue = .outerText End Select Exit For のIf InStr(objDoc.outerHTML, keywords) > 0 Thenの中のobjDoc.outerHTMLは、オブジェクト名が変わっているので、正しくは If InStr(myDoc.outerHTML, keywords) > 0 になります。 こちらでしたら、正常に取得できますね。 管理人様へメール報告しておきました。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。