IE .getElementsByTagNameでタグ指定 .Quitで閉じる

リンク 分類: [Document(文章)からデータを取得] / [Form入力処理] / [Linkリンク情報] / [Image画像情報] / [Frameフレーム処理] サンプル: [IEを使ったVBAのサンプル] / [小さなVBAでIE操作のコード]

メルマガ発行内容

やっと、下記、メルマガで発行した内容です。何かの参考となれば幸いです。
過去のメルマガ[IE操作系の記事一覧]もヨロシクです。

IE .getElementsByTagNameでタグ指定 .Quitで閉じる

どうも、三流プログラマーのＫｅｎ３です。

今回は、ＩＥでパラメータ入力後に、
新たに開かれた結果ウインドウから情報を抜き出し、
そのウインドウを閉じる、そんなことにチャレンジしてみます。
※起動したＩＥから広告コードを抜き取って用済みになった（失礼）IEを閉じる。

/*
 * １．やりたいこと 概要
*/

楽天ブックのリンク作成ページ
http://books.rakuten.co.jp/afvc/afinfo/page03.html

ここで、
ＩＳＢＮ番号 と 自分の広告コードのSIDとPIDを入力してボタンを押すと
ソースが表示される。

この広告コードを取得、そんなプログラムを作ってみたい。

ポイントになるのが、繰り返しになってしまいますが、
新規のイベントで自分で作ったオブジェクトを代入してます。

'新しいウインドウを開くイベントをチェックする
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

    '新しいウインドウを自分の管理下に置きたいので、オブジェクトを代入してあげる
    Set objNEW_IE = CreateObject("InternetExplorer.Application")
    Set ppDisp = objNEW_IE   '作ったオブジェクトを代入

    objNEW_IE.Visible = True '念のため見えるようにする

End Sub

Dim WithEvents objNEW_IE As InternetExplorer
とイベントを取れる宣言しているので、

テストで、URLとソースを表示してみました。
'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox "あたらしく開かれたＵＲＬは" & URL
    MsgBox "HTMLソースは" & objNEW_IE.Document.all(0).innerhtml
End Sub

と、オブジェクトを自分の管理下に置くことができました。

ここから、広告コードを抜き取って、ウインドウを閉じたいと思います。

/*
 * ２．タグ名指定でオブジェクトをGetする .getElementsByTagName
*/

オブジェクトが操作可能となったので、広告コードを取り出してみたいと思います。
objNEW_IE.Document.all(0).innerhtml
からinstr関数で<TEXTAREA>のタグを探す方法もあるのですが、

今回はカッコつけて、
.getElementsByTagName("タグの名前")
を使用してみます。

TEXTAREAのタグなので、
.getElementsByTagName("TEXTAREA")
として、取り出してみます。

'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    '読み込み完了を判断する
    If objNEW_IE.ReadyState = READYSTATE_COMPLETE Then '読み込み完了
      'テキストをセットする
      Me.txtKCODE.Value = _
         objNEW_IE.Document.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
    End If
End Sub

と、こんな感じで、
.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
タグの名前がTEXTAREAでアイテム０番目の内部テキスト
を取得できました。

/*
 * ３．新しく開かれたIEを閉じる .Quitする
*/

あとは、取得が終わったので、閉じてみます。
閉じるのは.QUITメソッドです。

'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    '読み込み完了を判断する
    If objNEW_IE.ReadyState = READYSTATE_COMPLETE Then '読み込み完了
      'テキストをセットする
      Me.txtKCODE.Value = _
         objNEW_IE.Document.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
      'IEを閉じる
       objNEW_IE.Quit
    End If
End Sub

ソース取得後、バイバイって感じです。
回線速度が速いと、開いてすぐ閉じてとなると思います。
私の場合は一瞬間があって、見えます。


/*
 * ４．終わりの挨拶
*/

webフォームにパラメータをセットして処理実行、
実行時、新しい情報ウインドウが開かれる（新規IEが起動する）
そのウインドウから結果データを取得して、閉じる。

そんな流れのテストプログラムでした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

在宅三流プログラマー Ｋｅｎ３でした。

ページフッター リンクや広告、質問送信など

三流解説を読んでいただき、どうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、※質問や感想は、気軽に送ってくださいね。

質問や要望など メッセージを送る(三流君に連絡する)

三流プログラマーのKen3 が 皆さんの質問にお答えします
と カッコつけて言っても、実力不足ですべての質問に回答することはできないのが現実なのですが、できる範囲で 三流的な逃げ手 や 解決方法 を探します(回答します)。

感想や質問・要望・苦情など 三流君へメッセージを送る。
時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。