VB.netでのIE操作の.getElementsByTagNameについて

###前提・実現したいこと
VB.netでhttpsのサイトからCSVを繰り返しダウンロードするプログラムを作成しています。
あるページで.getElementsByTagName()で要素を取得し要素の数分ループするのですが、ループ内で別のページに遷移するため
再度要素を取得するページを読み込みなおして、要素の再取得を行いたいと思っています。

###発生している問題・エラーメッセージ
ループ処理に入る前に行った.getElementsByTagName()では正常に取得できているようなのですが、ループ内で行う２回目が正常に取得できていないようです。要素を代入した変数をObjとして、Obj.lengthは正しく取得できるのに、Obj.Item(Idx).outertextで
「HRESULT からの例外:0x800A01B6」が発生します。
何かわかるかたいましたらお願いします

エラーメッセージ
NotSupportExceptionはハンドルされませんでした
「HRESULT からの例外:0x800A01B6」

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

VB.net
1    Browser.navigate(URL)
2    WaitIE(Browser)
3
4   'liタグを取得
5    Obj = Browser.Document.getElementsByTagName("li")  ←これは正常に取得できている
6    Flg1 = False
7    Flg2 = False
8
9    For Idx = 0 To Obj.length - 1
10
11     If Flg2 Then
12        Browser.Navigate(URL)
13        WaitIE(Browser)
14
15       'liタグを取得
16        Obj = Browser.Document.getElementsByTagName("li")  ←これがうまくいっていない？
17      End If
18
19      If Obj.Item(Idx).outertext = "aaaaaa" Then   ←２週目のここで例外発生

###試したこと
課題に対してアプローチしたことを記載してください

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

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

回答2件

エラーとは関係があるか分かりませんが、Objをループ内で変更するという設計は変更した方が
良いと思います。

例えば、
最初の
Obj = Browser.Document.getElementsByTagName("li")
でObj.length=2となり
ループ内で
Obj = Browser.Document.getElementsByTagName("li")
とした時にObj.length=1になった場合
If Obj.Item(Idx).outertext = "aaaaaa" Then
でIdxがオーバーしてしまう可能性があります。

ループ内でURLが変化するのか提示されたコードでは判断できませんが
再帰呼び出しで設計したほうがいいのではないかと予想します。

投稿2017/05/15 11:09