三流君VBAでIE操作 InternetExplorer.Applicationを操作する

挨拶:VBAで(ExcelやAccessなどから)InternetExplorer WebBrowserを操作してみたいと思います。
呪文のような Set objIE = CreateObject("InternetExplorer.application")でVBAからIE操作を楽しんでください・・・

全ての質問には、答えられませんが、リクエストや質問があったら、[作者(三流君)に質問する] から 気軽に送ってください

解説の入り口？

処理のパターンは、
１．オブジェクトの作成・・まずは、IEを起動したり、起動済みのIEを捕まえたり
２．ページを表示させる・・次は、処理したい目的のページを表示させます。
３．データを取得したり、セットしたり、HTML文章 .Documentの処理
３．１ 次のページ や 新しいウインドウの処理 ・・ リンクから次ページに飛んだり、フォームにデータをセットして送信・登録したり。検索データをセットしたり。
３．２ ↑で、次のページに処理が移り、3へ戻る(繰り返す)
４．終了処理
そんな感じかなぁ※おおざっぱ過ぎだろ・・・

下記の動画で設定方法・テスト方法のさわり、初めの一歩を少し実演してみました

※まぁ、↓これを貼り付けて、実行してみてください

Sub ie_test() 'IEテストする。 'IEの起動 Dim objIE As Object '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.google.co.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。 DoEvents '重いので嫌いな人居るけど。 Wend 'google検索項目(name=q)にセットする。 objIE.Document.getElementsByName("q")(0).Value = "三流" End Sub

↑あとは、イロイロと肉をつけていけば・・・

１．オブジェクトの作成

脱線した、話を戻して:
今から書く リニューアル後のページも捨てたモンじゃないぞ(手前味噌・自分で言うなよ(笑))
まずは、IEを起動したり、起動済みのIEを捕まえたり、 処理するオブジェクトを作ります

１．１ IEを起動

初めの入り口は 大きく２つじゃないですが、
ア．Set オブジェクト変数 = CreateObject("InternetExplorer.Application")
オブジェクトを変数に代入してから オブジェクト変数.メソッド 変数.プロパティ みたいに使う方法
※あっ忘れてた、0番目本当の一番初めとして、ぜひWebBrowserの参照設定→ [VBAから IEを使うための 参照設定の方法] を 初めに見てください。※※特にこれから始める人は。
次の方法は、

イ．ExcelのUserFormにWebBrowserのコントロールを貼り
コントロール名.メソッド コントロール名.プロパティ
※実際の貼り付け方、手順は [番外編 Excel UserForm に IEを貼る] を 見てください。

最後、表示させない方法もあって(少し特殊ですが)
ウ．As HTMLDocumentと.createDocumentFromUrlで文章を読み込み
MSHTMLを参照設定後、As HTMLDocument で変数を定義して、.createDocumentFromUrlでHTML文章を読み込みデータを取り出す。そんな方法もあります。
詳細・手順は[MSHTMLを参照設定後、As HTMLDocument と.createDocumentFromUrlで文章を読み込み使うテスト]を見てください。
※↑は、Documentの操作に慣れてきたら使ってみてください。初めは画面が表示されていた方がテストやデバック時に便利だと思います。

まぁ、どれから入っても .メソッド .プロパティ を 探らないといけないのですが。。

１．２ 表示済みのIE や 新規表示のIE を捕まえる

新規にCreateしないで、今表示されているIEを使ったり、新しく起動したIEを使いたい、そんな場面・処理があると思います。
思いつくのが、CreateObjectと対になるGetObjectを使用して、GetObject("InternetExplorer.Application")で表示済み・起動済みのIEを使用できれば簡単なのですが、なぜかうまくいかなかったので(もしかして私のミスかも)、最近は違う方向から攻めてます(別な方法を使ってます)。

ア．パターン的にCreateObject("Shell.Application")から表示されているIEを探してます。
百聞は一見に～三流君はこんな取得方法を使ってます。
起動済みIE、操作済み、既存の表示済みＷＥＢ画面を操作したい そんな時は、

ソースコードと簡単な解説は [XXXXさんへ 起動済みIE、操作済み、既存の表示済みＷＥＢ画面を操作したい]を見てください

イ．新しくIEからスクリプトで開かれたIEなどを探す
Set newIE = objSHELL.Windows(objSHELL.Windows.Count - 1)
↑新規で起動した IE が 必ず・絶対に一番後ろと決め付けて組んだプログラムです。(プログラマーに絶対は無いだろクソ三流って感じですが・・・)

２．ページを表示させる .Navigate

次は、処理したい目的のページを表示させます。
.Navigate の メソッドにURLを渡したりして、実行します
objIE.Navigate "http://www.google.co.jp/" 'こんな感じでGoogleのページを表示

ページの表示.Navigateのメソッドを使う

ア．単純に指定したURLを開く ページの移動 目的のページを表示する objIE.Navigate "http://www.xxxx.xxx/" 文字列でURLを指定するだけです。

イ．第二引数 Flagsを指定して隣のタブでURLを開く objIE.Navigate2 "http://www.xxxx.xxx/", &H800 '新しいタブで表示 2048(16進数で800) ※.Navigate2←2に注意

詳細は[.Navigate2メソッド]を見てください。

表示完了を待たないと Document メソッドは失敗しました のエラー

[↑動画で使用したソースコードを見る]

表示を待たないと、表示待ちを入れないで いきなりオブジェクトに触りに行くと(ドキュメントなどのオブジェクトにアクセスすると) 相手の心の準備ができていないみたいで(オブジェクトの展開処理が間に合わないみたいで)、どこ見てんのよ(古)と怒られるじゃなかった、実行時エラー -2147467259 (80004005) Document メソッドは失敗しました ・・・など、エラーで怒られるんですよ。
なので、objIE.Navigate のページ移動後に相手の準備ができるが確認します。
私がよく使っている方法は、
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents
Wend
みたいに、.Busy と .ReadyState の状態を見てます
そんな試行錯誤は、
・[.Busy プロパティ の テスト IE操作]
・[.ReadyState プロパティ の テスト IE操作]
を見て笑ってください。

３．データを取得したり、セットしたり、HTML文章 .Documentの処理

HTMLはタグに囲まれた文章なので、タグを指定してから、
.InnerTEXTや.OuterHTMLでデータを探ってみたり

[↑IE操作 基本？をYoutubeで大きくみる。]
[動画で使用したソースコードを見る]

Document 文章の処理なので、大きく分けると、下記のような感じになります

1. [Document(タグ付き文章)] ... データを取得したり、全ての始まりです。
2. [Document.Forms(入力処理)] ... データのセット、送信ボタンを押すなど。FORMとINPUTのタグ、オブジェクト
3. [Document.Links(リンク情報)] ... Aタグ、アンカーテキストなどのリンク情報。次へのリンクなどを探したり。
4. [Document.Images(画像情報)] ... あまり使ったこと無いけど IMGのタグを処理したり。
5. [Document.Frames(フレーム処理)] ... 最近SEO対策とかで少なくなったけどたまに見かける フレーム分割されたページもあるし。

基本の骨組み

ほんとに、基本動作の骨組みだけのサンプルです。肉付けして皆さんが活用できると使えるといいなぁ・・・
※初めは、参照設定から設定して、単純な表示から遊んでみてください。
'参照設定 Microsoft Internet Controls(Microsoft Browser Helpers)
'Microsoft HTML Object Library の ２つを忘れずに
'参照設定の方法は、 http://www.ken3.org/cgi-bin/group/vba_ie_object.asp をみてください。

Sub ie_test()  'IEの表示をテストする。

'IEの起動
    Dim objIE As InternetExplorer '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
'表示位置(左上の座標)とサイズ(高さ・幅)を調整する
    objIE.FullScreen = False '※Trueのモードだとびっくりするよ
    objIE.Top = 100      '左上 上位置
    objIE.Left = 100     '左上 左位置
    objIE.Width = 800    '横幅
    objIE.Height = 600   '高さ
    
'XXXバー、外観・外枠の調整。
    objIE.ToolBar = True     'タブの切り替えで必要なので、ツールバーを表示にする
    objIE.MenuBar = False    'メニューは非表示にする
    objIE.AddressBar = True  'URLなど アドレスバーは確認のため、表示する
    objIE.StatusBar = True   '一番下のステータスバーを表示。

'処理したいページを表示します。
    objIE.Navigate "http://www.google.co.jp/"  '.Navigate メソッドで Yahooを表示する。
    'Navigate と Navigate2 の 違いが私もイマイチわかってませんが

'ページの表示完了を待ちます。
    While objIE.ReadyState <> READYSTATE_COMPLETE Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        DoEvents  '重いので嫌いな人居るけど。
    Wend
    
'ページが表示されたので、表示された文章に対して、処理を行います。
    'HTML文章objIE.Documentからデータを取得
    '入力フォームDocument.Formsでデータをセットしたり送信したり
    'リンクDocument.Linksでリンクの情報を取得
    'イメージDocument.Imagesで画像の情報を取得
    'フレームDocument.Framesフレーム分割の文章なら
    '↑ほかにもイロイロありますが、文章Documentです。
    'また、.ExecWBメソッドを使えば 印刷・コピー・貼付 などコマンド・命令を発行できます。(動作が可能です)

'処理が終わったので、IEを閉じます。
    'テストの時は、↓確認して、残しておくと便利ですよ。
    If MsgBox("IEを閉じますか?", vbYesNo) = vbYes Then '終了確認
        objIE.Quit  '.Quitで閉じる
    End If
    
    Set objIE = Nothing '使用したオブジェクト変数もキレイにしてね。
   
End Sub

↑単純に表示しただけなので、ここから先が長いのですが、、、

サンプルコードを紹介。百聞は一見に～できるとわかれば

百聞は一見に～こんなことができます。
意外と、解説を聞くよりも現物・動くサンプルコードを見た方が速かったりします。
解説は後回しで、論より証拠？:動くサンプルから紹介
デバックなどの解説リスト→:[デバッグ 三流プログラマーが右往左往]
単体のテスト動画など→:[Web Browser IE操作 インターネットエクスプローラ]

下記、手前味噌ですが、アクセスの多いサンプル例です。何かの参考となれば
連続実行の注意？を含めて、入り口はここから？
[ExcelのA列の単語を翻訳サイトにセット取得を自動で連続実行]
で、1.webページの表示 2.データのセット 3.ボタンを押す 4.結果の取得 と 流れはそろっていたりするので、チェックが多いです
あとは、
・[Excel A列の値(本タイトル)をWebブラウザーにセットする]
・名前の付いた表を取り込むには、[VBA IE操作 表の取り込み(質問 CMEのデータ取得について)]
・乱暴に[VBA IE操作 サイトを全選択してEXCELシートへコピーアンドペーストにチャレンジ]
・データ登録系[ブログ(blog)にデータを登録する]
↑など、動くサンプルがあるので使ってみてください。

質問で多いログイン系の処理は
ログインサンプルとして
・[VBS で IEを使用して楽天市場にログインしてみた]
・[VBS IE操作で alt=のボタンを探して押す方法]
・[VBS IE操作でBlogにログイン ブログの入力・登録処理]
・ログインとデータ取得[JRA IPATのページから単勝の表を取り込む]
[JRA IPAT操作関係？]
を参考にして 探り方や処理をみてアレンジしてください。
など、少し書いたので、何かの参考となれば・・・

手前味噌のサンプルとリンク:
・[過去のメルマガIE記事]・・・メルマガで書いた記事。こっちが好きな少数派も居たりして？
・[IEを使った三流サンプル] ・・・ 少し長めのサンプル
や
声がうわずって、[え～と]、[こんな感じ] の単語連発で 間が悪く 聞き取りにくい
・[恥ずかしい解説動画(VBA IE動画解説)]・・・YouTubeに解説、操作動画アップしてます。
さらにひどい、
読者説明よりも SEOが目的 なのか知らないが、
・[変なブックマーク(WebBrowser系)]・・・はてなブックマーク使ってみました。使い易いですね。

表を取り込みたい

イロイロな処理の中で多いのが、表の取り込みです。
・Webから表 TABLE データを取り出したい(Webクエリーがあるけど、自分で取得したい)
そんな処理のサンプルは↓
[VBA IE Webページの表を取り込む]
↑手前味噌サンプルですが、表の取り込みでアレンジして使ってみてください。

ダウンロード、名前を付けて保存

・Webページからファイルをダウンロードしたい、
名前をつけて保存 や 対象をファイルに保存、そんな操作時は、
[No.120 URLDownloadToFile APIを使用してWebからファイルをダウンロードしてみた]
を見てください。APIと言ってますが意外と簡単ですよ(キャッシュの問題があるけど)

よくある質問

最近多い質問 JavaScriptで表示されるメッセージのボタンを自動的にクリックする

・JavaScriptから出力される Aleatやconfirm の確認・メッセージ などで処理が止まる。OK はい などを押したいけど、何かいい方法ありませんか？
と、質問をいただく。
最近よく見かけるコードは、
objIE.navigate "JavaScript:function alert() { return true; }"
みたいに、.navigateに書くJavaScriptでつぶす方法を見かけたり。

動画をYoutubeで見る→[https://www.youtube.com/watch?v=9qhaHPTjNSU]
ソースコードは[XXXXXさんへ IE操作「Webページからのメッセージ」(Javascriptのalert)を消す方法]

少し前は、変な方向でアプローチしてました、コチラも参考になれば。
読み込んだページに 小細工で同名の関数を.createElement SCRIPTで作成して、.appendChildで追加そんな感じです。
※ポップアップメッセージを動作させない、そんなセコイ方法です。
三流解説は [暗証番号入力 confirm確認メッセージを無効にする JRA入出金メニュー]や [VBA IE操作 ニセのpromptとalert を 挿入する そんな実験]を試してみて試して下さい。
まぁ、↑はかなりセコイので、プロはこっちかなぁ？↓

VBAでHTMLのページ内でJavaScriptのConfirm関数で表示されるメッセージのボタンを自動的にクリックする
http://q.hatena.ne.jp/1248657374
↑で、
ポップアップウインドウの件が解決してるみたいです。
こちらを参考にして、作成してみてください。
※私も精進しなくては、、、と思いつつ、最近は、何も進んでいなかったり。。。

IEのサポートがいつか廃止されると聞いたのですか？

Q.IEはいつなくなっちゃうか？不明なので不安
A.seleniumなど他の自動操作系を触ってみては？
https://www.google.com/search?q=selenium
↑検索してみると、いろいろと出てくると思います。

未解決や問題点

いろいろと攻略していない未解決や問題点があって
・画像を自動でアップしたいので INPUTタグTYPE FILEにファイル名を入れたい。
↑これも、セキュリティを突破できてません。

全ての質問には、答えられませんが、リクエストや質問があったら、
[作者(三流君)に質問する] から 気軽に送ってください

目次を兼ねた作成の手順・ガイド

ページの作りや情報のまとめ方がヘタなので、重複していたり、ほしい情報が隠れていたり...
無事に情報が見つかることを願いつつ、大分類・目次の紹介から始めます。

さて、IE操作 Documentの森・WebBrowserの山を頼りないガイドの三流君と一緒にさまよってみましょうか！！！
このページ 三流プログラマー的解説がIE操作方法(プロパティやメソッド)の入り口として何かの参考・お役に立てれば幸いです。

5.変更前の方が評判良かったり・・・

少し、情報を整理したつもりが、読者の声を聞くとリニューアル前の方が読みやすかったと評判良かったり 一度、こちらも見て下さい。

1. 2008-05-01に保存:[過去のVBA IE操作の解説 20080501]
   ↑.Lengthでデータ数 .Href .OuterText .OuterHTML .InnerText .InnerHTML などよく使うプロパティや (i)で参照 から For Each に 変更する処理方法などをリンク処理から入り、頭から順に解説しています。
2. 2009-02-01に保存:[過去のVBA IE操作の解説 20090201]
   ↑Form関係から解説を始め、Documentオブジェクトの参照、セットしたり、選択したり、ボタンを押したり・・と

6.余談と脱線

私が弱い・横浜ベイファンなので、マシンガン打線の昔話ですが [No.138 アイツが打てたから、オレも打てる。マシンガン打線] ← アイツ(三流君)がやれたんだったら、オレも(アナタも)やれるって感じの心理で、ソフト作りや他の仕事も まぁ同じようなもんで、成功例があると自分もやればそこに行き着くことができる（やれる）
そんな↑感覚(やれる)を持ってもらいたいので、あえて動作動画から紹介します。※VBAでIE操作は簡単にできると心に暗示をかけてから、最後まで三流解説を読んでくださいね。みなさんなら必ずできます

なかなか、うまくいかなくても[プログラマー発芽の条件]は、人それぞれ違うので、私の三流解説ページが栄養(キッカケ)となって、近い未来で覚醒(発芽)してもらえるとうれしいです。
すぐに私みたいな、失敗続きの三流プログラマーを越えられますよ皆さんなら。
※私、三流君を踏み台にして、読者の皆さんは、システム開発の世界で羽ばたいて下さい。
[後輩に追い越される三流な先輩]←こんな感じで後から来た皆さんにスグに追い越されれるなぁ と思いつつ(笑)
※※三流解説・三流コードが少しでも参考になったらうれしいなぁ～

逃げるように 終わりの挨拶

まだまだ、書かないといけないIE操作 プロパティやメソッドなどの組み合わせがあるのですが、このあたりで逃げるように失礼します(オイオイ)。更新が遅いけど温かく見守ってください 更新中 まだまだ書きかけ

いろいろな表現があって、かえって迷ってしまうかもしれませんが、数をこなすと見えてくるので、私のサンプルだけじゃなく、いろいろなサンプルを探して見てください。[番外編 GoogleでoIE,objIE,WebBrowserをKeyWordにして検索]にお勧めのキーワード検索方法を載せてます

過去のメールマガジンのリンクが長かったので、下記に移動しました。
[IE操作 メルマガ 一覧]
よろしくお願いします。

改版履歴 更新情報:過去のIE操作の解説はこちら↓(IE6+XP,IE7+XPの古い記事もアリ)
2009-12-01:[過去の解説 vba_ie_20091201.asp]
2009-06-01:[過去の解説 vba_ie_20090601.asp]
2009-02-01:[過去の解説 vba_ie_20090201.asp]
2008-05-01:[過去の解説 vba_ie_20080501.asp]
2007-08-31:[過去の解説 vba_ie_20070831.asp]
2007-05-20:[過去の解説 vba_ie20070520.asp]

2012-03-19:[過去の解説 vba_ie_20120319.html]
もあわせてみてください。
(↑もしかして書き直さない過去の解説の方がよかったかも？(笑))

ページフッター

Googleで情報を探す

せっかくホームページに来ていただいたのに、検索の紹介 ぉぃぉぃ
サイト指定や期間の指定を組み合わせて実行してみてください。

探す言葉:
をググる。↑VBAなど 気になる単語や,オブジェクト(MailItem),プロパティ(.Body)やメソッド(.Move)などを入れて検索してみてください。

---

サイト指定:人気QAサイト や 一次情報MS本家を指定する
条件無し WWW 全体から検索も良いけど↓で絞り込むのもおススメです
一次情報・二次情報まとめから探る
一次情報は基本のMSDN含む microsoft.comから
まとめ一次・二次情報 Qiita 知識を記録・共有 qiita.comで個人まとめを参考に
手前味噌の三次情報 三流君メモBlog ken3memo.hatenablogから検索
QAサイトの質問から探る
QAはやっぱり人の多いYahoo知恵袋 chiebukuro.yahoo.co.jpから探る
こちらもどうぞ おしえてgoo! oshiete.goo.ne.jp
15分探して見つからなかったら？回答率90％以上 teratail.com
私も利用中 最近過疎ってる失礼 人力検索 q.hatena.ne.jp
意外と穴場？ 2ch 5ch.netから探す
検索実行: ←オプション確認後に検索ボタンを押してください

---

期間指定:情報の鮮度も大切？
指定なし(全て)※不変の情報を得るには指定無しが一番？
3日以内 最新の更新情報を探す時など。
3ヶ月 これはあまり使わないかも
1年以内の更新なら情報鮮度もOK？バランス型
3年も経てばOfficeもバージョンUP？
検索実行: ←オプション確認後に検索ボタンを押してください

メッセージ送信

ここまで、読んでいただきどうもです。ここから下は、三流君宛のメッセージ送信や 三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

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

[三流君(TOPへ)] / [VBAで楽しく] / [記事一覧]

カスタム検索