IEで表示によって読むタグを変えたい。

###前提・実現したいこと
検索ページのフォーマットが異なる場合に別のタグを読みに行きたい。

###発生している問題・エラーメッセージ
エラー

###該当のソースコード

ページパターンA

html
1<h3>
2<a class="AAA" >取得したい名称A</a>
3</h3>

ページパターンB

html
1<span class="BBB">取得したい名称B</span>

ページパターンAとBを判別して取得したい名称AもしくはBを取得したい。

VBA
1 Dim objIE  As InternetExplorer
2 
3 If InStr(objIE.document.getElementsByClassName("AAA").textContent, "取得したい名称A") < 1 Then
4    
5Cells(i, 1).Value = objIE.document.getElementsByClassName("BBB")(0).innerText
6
7Else
8
9Cells(i, 1).Value = objIE.document.getElementsBytagName("h3")(0).innerText
10
11End if
12Next
13
14

###試したこと
課題に対してアプローチしたことを記載してください
読み込む対象をouterhtmlにする。おそらく、If構文内に当該名称のClass名がないため、この処理もエラーとなった。

###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
Excel2007

mattn

2017/07/11 02:29

ページ全体を載せて貰わないと、目的のタグへの経路が分かりませんので答えられません。

kazupop

2017/07/11 02:35

書き込みありがとうございます。 if内のInStr構文にページ内にないClassが入っているためにエラーになると思うのですが、特定のClassNameのあるなしを判別する関数はありませんでしょうか。。

行動規範の内容に同意します

回答1件

ベストアンサー

vbs
1Set aaa = objIE.document.getElementsByClassName("AAA")
2If IsNothing(aaa) Then
3  Cells(i, 1).Value = objIE.document.getElementsByClassName("BBB")(0).innerText
4Else
5  Cells(i, 1).Value = aaa.innerText
6End if

AAA で得たノードが Nothing かどうかで判別できます。

投稿2017/07/11 02:45

mattn

総合スコア5030