DOMを変数で渡してinnerTextを得る方法 削除
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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。