削除

DOMを変数で渡してinnerTextを得る方法削除

Message#5 2015年7月15日(水)06時31分
From: pyonko

VBAマスターのメッセージ(#4)への返事

VBAマスター様
ありがとうございます。
> 極論で言えば100行あったら100ケース記述する必要があると思いますが、ちょっとこれはどうかなと思います・・・
>

おしゃるとおりです！（汗）
> 理想としては、tagValueサブルーチンを利用するのがスマートに記述できる方法だと思います。

あ！こんな便利な関数を作ってくださっていたのですね！
idでやれそうなサイトにはidで、idがなくてもclassがあれば、さらにclassが同じのがいくつかあれば何か違っている所をみつけてキーワード、
という感じでやっていけばいいのですね？

> おそらくここの「一意のキーワード」を見つけれないがために断念したと思いますが、どこかしら違うところがあるはずなので、それを見つけたほうが早いかと思います。
>
> どうしても分からない場合は、以下のように個別の条件を追記すれば対応できるかと思います。
>
> For i = 2 To sh2.Cells(Rows.Count, 1).End(xlUp).Row
>
> With sh2
>
> sh1.Cells(i, 2) = tagValue(objIE, .Cells(i, "B"), .Cells(i, "C"), .Cells(i, "D"), "innerText")
>
> If sh1.cells(i,2) = "" then
> ※個別条件のマクロを記述
> End if
>
> End With
>
> Next
今夜、早速取り組んでみます。また、お聞きしなくてはならないことがあるかもしれません。出来たら報告させていただきます。
まずは、どうもありがとうございました。引き続きがんばってみます。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。