ＩＥ上の文字を取得する方法を教えてください
今ＩＥ上の文字を範囲選択し、コピー後EXCELにテキストのみ張付け
EXCEL上で処理を行うことをしてしますが、画面の数が多く
ＩＥから文字を自動取得出来ないかと思案しております。

是非、そんなことが出来るならお教えいただけませんでしょうか？

環境は　win2000　EXCEL2000　IE5.5　vb6　です

> ＩＥ上の文字を取得する方法を教えてください

いくつかやり方はありますがWebBrowserコントロールを使って文字列の取得は可能です。

一番簡単な方法を

Private Sub Form_Load()
    '別途プロジェクト→コンポーネントで Microsoft Internet Control に
    'チェックを入れてWebBrowserコントロールをフォームに貼り付けて下さい。
    'HTMLファイルを表示
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
End Sub

Private Sub Command1_Click()
    Text1.Text = WebBrowser1.Document.body.innerText
　　’Text1.Text = WebBrowser1.Document.body.innerHTML
End Sub

花ちゃん様　
すいません
Text1.Text = .boby.innerText
のところで　参照が不正または不完全です　と
エラー表示されるのですが.bobyの前に
何か入れるのでしょうか？

失礼しました。下記に訂正願います。

Text1.Text = WebBrowser1.Document.boby.innerText
’Text1.Text = WebBrowser1.Document.body.innerHTML

花ちゃん様　
すいません
Text1.Text = WebBrowser1.Document.boby.innerText
としても

オブシェクトはこのプロパティまたはメソッドをサポートしていません。

とエラー表示されてしまいます。

表示しているページはサンプル通り
WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
なんですけど

下記のようにサイトが表示されてからテキスト取得するようにして下さい。

Private Sub Form_Load()
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
End Sub

Private Sub Command1_Click(Index As Integer)
    Text1.Text = WebBrowser1.Document.body.innerText
End Sub

又は、下記のように表示されるまで待機して下さい。

Private Sub Command1_Click(Index As Integer)
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
    Do While WebBrowser1.Busy = True
        DoEvents
    Loop
    WebBrowser1.Visible = True
    Do While WebBrowser1.Document.ReadyState <> "complete"
        DoEvents
    Loop
    Text1.Text = WebBrowser1.Document.body.innerText
End Sub

下記では質問のようなエラーが発生します。
Private Sub Command1_Click(Index As Integer)
    WebBrowser1.Navigate "hhttp://www.bcap.co.jp/hanafusa/top.htm"
    Text1.Text = WebBrowser1.Document.body.innerText
End Sub