Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40873 / 76732 ←次へ | 前へ→

【40948】Re:フレーム付きのサイトの内容を読み込むに...
発言  ichinose  - 06/7/26(水) 18:04 -

引用なし
パスワード
   ▼ジンギス さん:
こんばんは。

>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
試して見てください

0 hits

【40944】フレーム付きのサイトの内容を読み込むに... ジンギス 06/7/26(水) 16:52 質問
【40948】Re:フレーム付きのサイトの内容を読み込む... ichinose 06/7/26(水) 18:04 発言
【40952】Re:フレーム付きのサイトの内容を読み込む... ジンギス 06/7/26(水) 18:55 お礼

40873 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free