DOMを変数で渡してinnerTextを得る方法
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
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 になります。 こちらでしたら、正常に取得できますね。 管理人様へメール報告しておきました。 |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降