|
▼ジンギス さん:
こんばんは。
>WEBサイトの内容をテキストで読み込むツールを作っているのですが、
>フレーム付きの場合、ブラウザに表示されているURLが同じになってしまい、
>読み込むことが出来ません。
>どのようにしたら良いのでしょうか?
私は、あまりこういうことはしたことがありませんが・・・、
'=====================================
Sub main()
Dim ie As Object
Dim doc As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.navigate "http://www.lcv.ne.jp/~bunkaen/"
' 先月まではまっていた八ヶ岳のサイトです
Do While .Busy = True Or .readyState <> 4
Loop
Set doc = .document.frames(1).document
AppActivate Application.Caption
MsgBox doc.body.innerText
.Quit
End With
Set doc = Nothing
Set ie = Nothing
End Sub
試して見てください
|
|