navigate2で開いたドキュメントのオブジェクトを取得する方法

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2018年8月11日(土)19時24分
From: ジャッカル

返事削除変更

全体のプログラムはどうなってるの？

> 以下のようにして、新しいタブにurlを読み込みました。読み込みは成功しているようです。ただし、この関数で読み込んだタブの HTMLDocumentのオブジェクトを取得しようとするとうまくいきません。
>
> Function OpenTabUrl(ie As InternetExplorer, url As String) As HTMLDocument
> ie.Visible = True
> ie.Navigate2 url, 2048
> Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE '読み込み待ち
> DoEvents
> Loop
> Set OpenTabUrl = ie.document
> End Function
>
> ie.documentとして得られるのは、タブを追加する前から表示されていたドキュメントです。追加したドキュメントのオブジェクトはどのようにしたら取得できるでしょう。
>
> お詫び：直前に空のスレッドを作ってしまいました。直し方がわからないので管理者の方よろしくお願いします。

Message#1 2018年7月24日(火)12時56分
From: とんび

返事削除変更

以下のようにして、新しいタブにurlを読み込みました。読み込みは成功しているようです。ただし、この関数で読み込んだタブの HTMLDocumentのオブジェクトを取得しようとするとうまくいきません。

Function OpenTabUrl(ie As InternetExplorer, url As String) As HTMLDocument
ie.Visible = True
ie.Navigate2 url, 2048
Do While ie.Busy = True Or ie.readyState < READYSTATE_COMPLETE '読み込み待ち
DoEvents
Loop
Set OpenTabUrl = ie.document
End Function

ie.documentとして得られるのは、タブを追加する前から表示されていたドキュメントです。追加したドキュメントのオブジェクトはどのようにしたら取得できるでしょう。

お詫び：直前に空のスレッドを作ってしまいました。直し方がわからないので管理者の方よろしくお願いします。