DOMを変数で渡してinnerTextを得る方法
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#2 2015年7月14日(火)16時30分 From: VBAマスター | 返事 削除 変更 |
| よく分からない部分もあったのですが objIE.sh2.Cells(i, 2) の部分がエラーがでて動作しないということでしょうか？ sh2.Cells(i, 2)に記述されたobjIE.Document.body.all.tags("ul")(3).innerTextを利用しているということですが、こちらを当てはめたら、objIE.objIE.Document.body.all.tags("ul")(3).innerTextでobjIEオブジェクトが2つ続きます。 試していませんが、セルをオブジェクトに代入してもエラーが起きるだけではないでしょうか？ サイトによって値が異なるのであれば、処理をサイト毎にわけるか、統一したデータを取得する方法を利用するほうが一般的だと思いますよ。 値の取得については、以下ページが参考になりますので、こちらを見てみてはいかがですか？ http://www.vba-ie.net/element/tagvalue.html あと、セル値をオブジェクトとしてセットしてみるとうまくいくかもしれません。イメージとしては以下のような感じです。 試したわけではないので、参考まで。 Dim objDoc As Object Set objDoc = osh2.Cells(i, 2) sh1.Cells(i, 2) = objDoc |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
