« 【株】 05/02 +59620 日経△282.4 | トップページ | 【Excel VBA備忘ログ】IE7.0の自動更新を禁止する »

【Excel VBA備忘ログ】FRAMEを持つサイトの構造を調べるには(修正)

0)準備
 Dim IE as object
 Dim frame as FramesCollection
 Dim url as string

 Set IE = CreateObject("InternetExplorer.application")
 IE.Navigate url
 ※urlは開きたいURLを指定

1)フレーム数のカウント方法
 IE.document.frames.length

 指定したURL直下のフレーム数(3つなら3を返す)
 0ならフレームを使用していない。

2)フレームの名前
 Set frame = IE.document.frames
 としておいた後で

 フレームが複数ある場合
 frame(n).Name
 フレームが1つの場合
 frame.Name

 ※nには0~IE.document.frames.length-1が指定可

3)指定したフレームの中身の取得
 frame(n).document.body.innerText
 frame(n).document.body.innerHTML

4)孫フレームの探索
 3)子フレームに対し、frame(n).frames.lengthで再度フレーム数を
 チェックし、1以上であれば孫フレームが存在する。以降、再帰的に調べる。

 ※孫フレームが存在する場合、子フレームのinnerTextが空の事が多い。
  (必ずしもそうではない)

にほんブログ村 株ブログ 株日記へ にほんブログ村 株ブログへ

★★何でも見つかる!Yahoo!ショッピング★★

« 【株】 05/02 +59620 日経△282.4 | トップページ | 【Excel VBA備忘ログ】IE7.0の自動更新を禁止する »

Excel」カテゴリの記事

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.f.cocolog-nifty.com/t/trackback/36872/20770702

この記事へのトラックバック一覧です: 【Excel VBA備忘ログ】FRAMEを持つサイトの構造を調べるには(修正):

« 【株】 05/02 +59620 日経△282.4 | トップページ | 【Excel VBA備忘ログ】IE7.0の自動更新を禁止する »

amazon

マイリスト

  • 暮らしをおトクにかえていく|ポイントインカム
  • 暮らしをおトクにかえていく|ポイントインカム
  • フルーツメール
無料ブログはココログ