Excel VBA質問箱 IV

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

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


7143 / 13644 ツリー ←次へ | 前へ→

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

【40944】フレーム付きのサイトの内容を読み込むに...
質問  ジンギス  - 06/7/26(水) 16:52 -

引用なし
パスワード
   はじめまして。

WEBサイトの内容をテキストで読み込むツールを作っているのですが、
フレーム付きの場合、ブラウザに表示されているURLが同じになってしまい、
読み込むことが出来ません。
どのようにしたら良いのでしょうか?

是非ご指導お願い致します。

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

【40952】Re:フレーム付きのサイトの内容を読み込...
お礼  ジンギス  - 06/7/26(水) 18:55 -

引用なし
パスワード
   ▼ichinose さん:
試してみます、ありがとうございます。
また何かわからないことがあったらよろしくお願い致します。

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