Microsoft Web Browser コントロールをフォームに貼る

メルマガ発行内容

＜Microsoft Web Browser コントロールをフォームに貼る＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、
Microsoft Web Browser コントロール
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
をフォームに貼って、使用してみます。

/*
 * １. フォームにIE コントロールを貼る
*/

いままで、
インターネットエクスプローラー（ＩＥ）を起動するには、
Sub ie_test()
    Dim objIE    As Object  'ＩＥオブジェクト参照用
    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")
    objIE.Visible = True '見えるようにする(お約束)
End Sub
と、
ExcelやAccessの起動でお世話になっている、
CreateObjectを使用して、
"InternetExplorer.application"
を作成して外側にアプリケーションを起動してました。

私が最近気が付いたのですが、
AccessやExcelのフォームに(フォーム内に)
ワクを作成して、Web画面を表示したり、管理することが出来ます。

Accessのユーザーフォームを例にして説明します。

まず、Accessのフォーム作成で、
挿入・ActiveXコントロールを選択します。


次に、
Microsoft Web Browser コントロールを選択します。


すると、簡単にコントロールを貼ることが出来ます。


/*
 * ２．コントロールに対して操作を行う(これまでの操作が可能)
*/

コントロールをなんとか貼ったら、
次は、操作したいので、
^^^^^^^^^^^^^^^^^^^^^^
テスト用のボタンを作成し、
Private Sub コマンド1_Click()
    Me![WebBrowser0].GoHome
End Sub
と、初期ページを表示してみます。

WebBrowser0がコントロールの名前で、
それに対して、
普通にプロパティやメソッドを操作できます。

無事に、Accessフォーム内にWebの画面が表示されました。


Me![WebBrowser0].Navigate "表示したいURL"
など、IE操作で行ったことと同様に使用可能です。

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

なんとか、Accessのフォーム内で、IEの表示ができました。

外側で表示、コントロールするより、
フォーム内に表示されたほうが、
アプリケーションの一部で使っているなぁって気になると思います。
※気分や見た目って大事ですよね。

こんな感じで、
挿入・ActiveXコントロール
Microsoft Web Browser コントロール
と
コントロールを追加するだけで、
AccessとかOffice系のアプリケーションで、
Webへアクセスするプログラムを組むことが出来ます。

さて、表示が出来たら、データの抜出とか、データのセットですよね。
次回は、Accessと組み合わせて、Webからデータを抜く(保存する)、
そんなことをやってみたいと思います。

次回は、もう少しマシなの作りたいですね。
※できたら、世に出せるくらいのツールになるといいけど、、、

不思議なＩＥお嬢様、まだまだ攻略できそうにないよね。
えっ、Ｅｘｃｅｌ姫やＡｃｃｅｓｓお姉さまも攻略して無いダロって？
※う〜ん、実力無くて、なかなか、攻略できなくて。。。。

何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック